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ABSTRACT 


This report documents the computer program FIRES-T3 (FIre REsponse 
of Structures - Thermal - Three-Dimensional Version). The program 
evaluates the temperature distribution history of general three-dimensional 
solids or composites such as reinforced concrete subjected to fire envi- 
ronments. There are also options for two-dimensional and one-dimensional 
heat flow analyses. FIRES-T3 is based on a finite element formulation 
which considers the temperature dependence of thermal properties and 
the nonlinearities inherent in modeling the fire boundary condition. The 
finite element formulation, the idealization of the fire boundary condi- 
tion, and the general numerical approach used in the program are 
discussed. Included in the report are appendices that provide input 
instructions for FIRES-T3, sample problems with listings of their input 
and output, and a complete Fortran listing of the computer program. 
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1. INTRODUCTION 


This report presents FIRES-T3, a computer program for the Fire 
REsponse of Structures - Thermal - Three-Dimensional Version, which 
evaluates the temperature distribution history of structures in fire 
environments. There are options for fully three-dimensional solids, 
two-dimensional cross-sections, and structures in which heat flow is 
one-dimensional. The program also permits the use of one-, two-, and 
three-dimensional elements together in the same structure. Structures 
may consist of one material or may be composites such as reinforced 
concrete. The temperature distributions generated by FIRES-T3 can be 
used in conjunction with stress analysis programs such as FIRES-RC II 
(a computer program for the response of Reinforced Concrete Frames [ 6 ]) 
or FIRES-SL (a computer program for the response of SLabs [ 7 ]), together 
providing an overall capability of predicting the response of structures 
subjected to fires. 


The heat flow problem is modeled in FIRES-T3 by the heat conduc- 
tion boundary value problem. These equations are nonlinear because of 
the temperature dependence of the thermal properties of structural 
materials and the heat transfer mechanisms associated with fire environ- 
ments. The solution technique used in FIRE-T3 is a finite element 
method coupled with time step integration. This general approach has 
been presented in the work of Wilson [10,11] and Zienkiewicz [12,13] and 
extended to the fire situation by Bizri [ 3 ]. The nonlinearity of the 
problem requires an iterative solution process within each step. The 
element library includes isoparametric 8-node hexahedra and 4-node tetra- 
hedra for three-dimensional solids, 4-node isoparametric quadrilaterals 
and triangles for two-dimensional modeling, and 2-node isoparametric bar 
" elements for one-dimensional problems. Fire environments are represented 
by a linear model or a nonlinear model that includes both convective 
and radiative mechanisms. 


In the report, the theoretical model and solution techniques are 
derived, the organization of the computer program is explained, and a 
commentary on practical aspects of using the program is made. The 
appendices contain fully annotated input instructions, sample problems 
with input and output, and a Fortran listing of the program. 
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2. THERMAL MODEL AND SOLUTION PROCEDURE 


2.1 Heat Flow Equations 


Three dimensional heat flow is governed by the following partial 
differential equation: 


9 9 Lie Co B22 OT (Xs 9 5 om Ol (x, siBeeu 
oc, As Ye zat) 2 2 (q Mbeya za th 42 + 


OX 


BIOTA ISaT OS, Py sez sot 
OZ (K OZ } Qoxo % Ys Zs t) (2.1) 
where 

Mina Vs Z - spatial coordinates 

t - time 

T(x, ys Zz, t) - temperature distribution history 

0 - density (temperature- and space-dependent) 

Cy - specific heat (temperature- and space-dependent) 

K - isotropic conductivity (temperature- and space- 
dependent) 

Ore | - internal heat generation rate (time- and space- 
dependent) 


An integral part of the above equation is its boundary conditions and 
initial conditions. The initial conditions consist of the temperature 
of every point in the structure when the analysis begins, i.e., 


T(x, ys Z, t) = Ty(xs y, Z) (2.2) 


where the temperature distribution Tg is specified. Boundary conditions 
must be defined at every point on the structure's surface and can be a 
Specified temperature history or a specified heat flow history. The 
solution to the heat flow problem is the internal temperature history 


that satisfies the field equations (2.1), the initial conditions (2.2), 
and the prescribed boundary conditions. 


For the special case of two-dimensional heat flow, the governing 
equations are 


oc, Ses ys t) = a (x ys ty Xk Mey Dy) ag. Rouho7, rey (2.3) 


with appropriate boundary conditions and initial conditions defined over a 
two-dimensional area. 


One-dimensional heat flow is governed by the equation 


pepe 2) (2.4) 


Boundary conditions are defined by specifying a flow rate or temperature 
at each end of the one-dimensional domain. 


2.2 Finite Element Matrix Equations 


The heat flow equations for two- and three-dimensional bodies 
described above are very complex and in almost all cases have no closed- 
form solution; approximate numerical methods must be used in order to 
obtain a solution. In program FIRES-T3, a finite element method 
discretizes spacial variables and a step-by-step integration technique 
discretizes the time variable. The advantages of the finite element 
method: are numerous. The method is completely general with respect to 
geometry and material properties; complex shapes composed of different 
materials (e.g. a reinforced concrete structure) are easily represented. 
Nonlinearity of material and boundary conditions can be treated by the 
finite element method quite economically. Most numerical methods 
convert the continuous governing differential or integral equations of 
heat transfer to a set of linear algebraic equations. However, in the 
finite element method, the linear equations produce a symmetric 
positive-definite matrix in banded form which is readily solved with a 
minimum of computer storage and time. 


In the finite element method, the continuum over which Eq. (2.1) or 
Eq. (2.3) is defined is discretized into a finite number of elements connected 
at nodal points. The complex partial differential equation is trans- 
formed into a system of simultaneous first order differential equations, 
One at each node. This transformation is effected element by element as 
explained in the next three sections. The system of nodal equations is 
then solved by step-by-step integration over the time domain, as explained 
in Section 2.6. 


The finite element equations can be visualized physically as nodal 
heat balance equations. That is, at each node in the discretization, 


ety a0) (2.5) 
where 


Q° = rate at which heat is stored within the elements 
adjacent to node; in steady state conditions, this 
term is zerc at all nodes 


q' = rate of internal heat transfer by conduction in the 
elements adjacent to the node 

be = rate at which heat enters the node from an external 
source 


or, in matrix form, 


[C] {ht -+ EK] 4th =. Ha) (2.6) 
where 


[C] = Capacity matrix 
(temperature-dependent) 


[K] = Conductivity matrix 
(temperature-dependent) 

{Q} = External heat flow vector 
(depends on exothermic reactions and fire boundary 
conditions) 

{T} = Temperature vector 


(time-dependent ) 


{T} = Temperature time rate of change vector 
(time-dependent) 


The derivation of the three terms of this equation (conductivity matrix, 
Capacity matrix, and heat flow vector) are discussed in the next three 
sections. 


2.3 Conductivity Matrix [K] 


The terms of the conductivity matrix are associated with the rate 
of heat flow from the elements adjacent to each node. The conductivity 
matrix for the system being analyzed, K, is assembled from element 
conductivity matrices, Ka That is: 


where m is the element number and M is the total number of elements. 
The development of the conductivity matrices for three-dimensional , 
two-dimensional, and one-dimensional isoparametric finite elements is 
presented below. Three-dimensional elements can be used only for a 
three-dimensional analysis. Two-dimensional elements can be used in a 
two-dimensional analysis or as a component in a three-dimensional 
analysis. The one-dimensional elements can be used in conjunction with 
two- and three-dimensional elements in a multidimensional analysis or 
by themselves to model one-dimensional heat flow. 


2.3.1 Three-Dimensional Isoparametric Element 


This element is called isoparametric because the geometry of the 
element and the assumed temperature distribution within the element 
are described in terms of the same ("iso"), parameters (or shape functions) 
and are of the same order (linear in this case). 


An eight node three-dimensional isoparametric element is shown 
in Fig. 2.1. The natural coordinates (x, y, z) of the eight corner 
nodes are (+1, +1, +1). A natural coordinate system is a local system 
which permits the specification of a point within the element by a set of 


NODE (5) 


(-1,-1,-1) 


FIGURE 2.1 THREE-DIMENSIONAL ISOPARAMETRIC ELEMENT 


dimensionless numbers whose magnitudes never exceed unity. This system 

is usually arranged so that the natural coordinates have unit magnitude 
at the nodal points of the element. Such a system simplifies the formula- 
tion and facilitates the numerical integration which is required to 
obtain element matrices. The symbols x, y, and z denote the global co- 
ordinate axes. | 


The temperature at any point within the element is expressed in the 
natural coordinate system (x, y, z) in terms of the temperatures at nodes 
1 to 8 by the following equation: 


(2.8b) 
bx 3 Lome: 1.8 x1 
where 
HA(X, Yo 2) = g (14x) +99) + 22) (2.9) 
(linear interpolation function) 
Xs Yi» z. - natural coordinates of node i (either 1 or -1) 
T,(t) - temperature of node i 
< H. > ee H, Ho nate tears He > 
{T.} - column vector of nodal point temperatures 


Similarly, the global coordinates of any point within the element 
are related to the global coordinates of the nodal points by the following 


equation: 
X < H. > 0 0 {x.} 
ve = 0 <H, > 0 ty; } C2510) 
Zz 0 0 < H. > ie Dea 
Soret wax 24 2arx| 


where 


{x5} POKEXH GIG. RNB KX GMS 

TVs oay Ey Yo > 

y; lv~ 2x “2toambe. 328 
ae 

ard ae hoe Zanto fey fe Z9 > 


are the nodal point coordinates in global system. 


When calculating the element conductivity matrix, an expression for 
temperature gradient within the element is needed. Differentiation of 
Eq. (2.8) with respect to spatial coordinates yields: 


oH. 

oT 7] 

Ox haere 
oH. 

oT 7 yeh « 

ay < Dy > {T.} = [B] {T.} (2.chig 
oH. 

oT 1 

az. — panes 

37xut 3°xX°o 8 x | 


The spatial derivatives in the natural and global coordinate systems 
are related by the following equation (using the chain rule of differ- 
entiation). 


ce On 

9x Ox 

2) - fa ¢ & (2.12) 
oT ths 

92 OZ 
ox sl cere 8} SX 


where 


Ke OY 3 
3x x x 
x ) 
[J] * ae = we ea ey) 
oy oy oy 
ax By az 
Gz S¥09z 9Z 


is the Jacobian matrix. From Eq. (2.10) it can be shown that: 


Zaha Weer A hae 
oes a as 
Ox OX Ox MOE FUSES 
5H 9H 9H 
[J] J ga a i ea = (2.14) 
oy oy oy 
oh pane NA na 
gz oz 9Z 
3exe8 
TEMS oo 
8 x 3 


Finally, using Eq. (2.12) in Eq. (2.11), one obtains 


j j 

<—_— > < —> 
Ox a 

oH. =] oH. ; 
3 ua ame yrenled a, : (2at5) 
y 
3aXeO 

oH. oH 

saaaslat < — 
oz 97 


Using the virtual work principle, it can be shown that the element 
conductivity matrix is given by [12] 


Kee iy fe Boer ee ebemrdy (2 
— Vol — 
8x8 8X3. 8 .5X3 ROXS 
in which ka is the material thermal conductivity tensor of the element. 
For isotropic conductivity, the above equation reduces to 
Ry nzecicl od ake HELO) wedy (2. 
— Vol.soae 
8x8 8x3 3x8 
Note that [12] 

dv = dx-+dy+dz = fd] dx + dy + dz (a 
where |J| is the Jacobian (determinant of [J]). By making a change in 
coordinates to the natural coordinate system, Eq. (2.17) becomes: 

¢ on) ee ee | T hae ol 
Kn =) ae ead oak ee Coan baat lee OX gy a (2. 


8x8 8x3 3x8 


ag K is constant throughout the element, the above integral reduces to 


8x8 8x8 


where 


8x8 8x3 3x8 
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Kc BK tle lyfe lee te Opsby e2licx icy izes 


17) 


18) 


20) 


It is impractical to integrate expression (2.20) in closed form, 
and approximate numerical integration methods must be used [11,12]. 
Although there are several numerical integration schemes available, 
Gauss quadrature is used in FIRES-T3. Using Gauss' Formula, expression 
(2.20) is evaluated as follows: 


| er | 
apf Pi ele f (x,y,z) dxdydz = 2 © £ W. We Wo f (xis ys, Z)) 
i=1 j=] n=1 J 
8x8 8x8 
where 
Pud5 N - number of integration points in directions 


X, Ys Z» respectively 


ey eZ - coordinates of integration points 
We, WPM - weight functions 


Values of the coordinates and weight functions for various values of the 

number of integration points are tabulated in Reference 12 and in other 
texts on numerical methods. In FIRES-T3 the number of integration points 
is taken equal to two in each direction, yielding a total of eight inte- 
gration points within the element. That is: 


Then, from appropriate tables [12], it is found that 


ae ae} =o 
and 


Wo e=7) 1,511 


The computational scheme proceeds as follows. First, the spatial 


derivatives of < H. > are evaluated at integration point (x., Y5> Zale 


1] 


Then these derivatives are used in Eq. (2.14), along with the known 

global coordinates, (x), ee thee Xo)» (y> saint f, Yg) and (Zz), ae Z9) 

of the element corners, to obtain the Jacobian matrix J(x., Y5> Z ye at 

point (x5 Ys Za) This matrix is inverted and used in Eq. (2.15), along 
with the spatial derivatives of < H. > at point (x. y 4 Z,) to obtain the 
matrix B(x. Ys z,)- Finally, the determinant of the Jacobian |I(X. Y5> 44) 
is calculated and used together with B(x., Ys ga) in Eq. (2.21) tocobtaime 


Equation (2.23) is evaluated at the eight integration points and added 
in Eq. (2.22) to get a total value for the integral. Substitution into 
Eq. (2.20) completes the derivation of element conductivity. 


2.3.2 Two-Dimensional Isoparametric Element 


The two-dimensional isoparametric element is very similar to the 
three-dimensional element, so the derivation below is brief to avoid 
redundancy. | 

A typical four node two-dimensional isoparametric element is shown 
in Fig. 2.2. The natural coordinates (x, y) of the four corner nodes 
are (+1, +1). Global coordinates are denoted by x and y. 


The temperature at any point within the element is expressed in the 
natural coordinate system (x, y) in terms of the temperatures at nodes 
1 to 4 by the following equation: 


4 
Tx, yet) +223 H. (x, yy) T.(t) (2.24a) 
T= 
or, in matrix form 
T(xh eye) t)> =8_<fH, FoF {Ts} (2.24b) 
al leva4 aye) 


x=0O 


y 


<| 


NODE (3) 


(x=1,y=1) 


NODE (4) 


(x=-1, Y=1) 


(X=-1,y=-1) 


NODE @) 


(x=1,y=-1) 


NODE (2) 


FIGURE 2.2 TWO-DIMENSIONAL ISOPARAMETRIC ELEMENT 


(X=-1; x=x,) 


FIGURE 2.3 ONE-DIMENSIONAL ISOPARAMETRIC ELEMENT 


x! 


where 


< H. > 
1 


fae 


Similarly, the global 


pl + RX) 145 5;) (2.25) 
(linear interpolation function) 


natural coordinates of node i 
(either 1 or -1) 


temperature of node i 
< Hy Ho H. Hy > 


column vector of nodal point temperatures 


coordinates of any point within the element 


are related to the global coordinates of the nodal points by the follow 


ing equation: 


where 


iT} 


<H. > 0 {x. } 
0 < H. > {y=} (2.26) 
2axXeG 8 x 1 


< Xq Xo e3 Xa > 


<Y1 Vo V3 Yq > 


are the nodal point coordinates. 


Differentiation of Eq. (2.24) with respect to spatial coordinates 


yields: 


oH. 
cenaa ee 

Ae (T,} = [B] {T,} (2s 
i 

oy 


The relationship between spatial and natural derivatives is 


c) J) 
- OX 
Ox 
esi 
rc) Cc) 
ay oh 
aXe | Cex Cu cux al 
where 
exe OY: 
ox ox 
[J] = 
ox oy 
ay ay 


is the Jacobian matrix. From Eq. (2.26) it can be shown that 


Higetlas Manis] [x,y 
OX OX OX OX Xo Vo 
hee = 
Kee 
Giisbe splice ?tAe Howie | | * 
AD BR OA RY xq Yq 
2x 4 AGxe? 
\ 
Use of Eq. (2.28) in Eq. (2.27) yields 
oH. oH 
<< Oe > < pall > 
-] R) 
[B] = = [v] ‘ 
OH. oH 
2.x 4 < ae Zax ee 4 A 
2x 4 ox 4 


The element conductivity matrix is given by 
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(2928) 


(2.29) 


(2.30) 


(23 1) 


f 
Kn = vol. kK, Begao surcy (2°32) 
4x4 4x2 2x4 


or integrating in the natural coordinate system 


Kies ito) Ue fommskere BMmBy | lee eedys (2.33) 
pet -1] -] 
4x4 4x2 2x4 
where 
t s - thickness of element 
| J | : - determinant of Jacobian 


iT. Kn is constant throughout the element, the above integral reduces to 


+] +) ig 
Kot Km a Eee ae 2 EX: cynbdx) dy (2.34) 
he -] -] 
4x4 4x4 
where 

- - T 

Tat ery) = Be 4Bes 1a} (2.35) 

4x4 4x2 2x4 


Numerical integration of Eq. (2.34) by 2-point Gauss quadrature gives the 
following equation: 


+] +] ) oe ea 2 ae — 
foe ULE 8) CTS ne tr EL, ict (2.36) 
-1 -T i=] j=l 
4x4 4x4 
where 
Xa Yy - coordinates of integration points 


either + /3/3 or -v3/3 
16 


The computational scheme is as follows. First, spatial derivatives of 
< H; > are evaluated at integration point (x. y.). Then these derivatives 
are used in Eq. (2.30), along with the known global coordinates, (x Xoo Xao Xa) 
and (y,> Yoo ¥3> Yq)> of the element corners, to obtain the Jacobian matrix 
J (x,5 ys) at the integration point (x. ye )é This matrix is inverted and 
used in Eq. (2.31) along with the spatial derivatives of < H, > at point 
(Xs y<)s to obtain the matrix B (x., y.). Finally, the determinant of 
the Jacobian |J (x., y,)| is calculated and used together with B (x.5 y.) 
in Eq. (2.35) to obtain 
. 1 


* 9 Pe) = B 


; ; Bb “— y;) B (x;, y;) [J(xs. y)| 


(esih): 
4x4 4x2 2x4 


Equation (2.37) is evaluated at the four integration points to determine the 
total value Of the integral in Eq. (2.36). Substitution into Eq. (2.34) 
completes the formation of the two-dimensional element stiffness matrix. 


2.3.3 One-Dimensional Isoparametric Element 


A two node one-dimensional isoparametric element is shown in Fig. 2.3. 
The natural coordinates, x, of the two nodes are +]. The x-axis represents 
the global coordinate system for the element. 


The temperature at any point within the element is expressed in the 
natural coordinate system (x) in terms of the temperature at nodes 1 and 2 
by the following equation: 


2 
T(Xout ee eH ex) ee) T(t) (2. 38a) 
i=] 
or in matrix form 
xXeab ees < Hee iT.) 
(2.38b) 
bx 1x2 2x1 
where 
S _ 1 aie 
Hi (x) ; Dalle eX) (2.39) 


(linear interpolation function) 


iy 


T,(t) - temperature of node i 
< H. ab < Hy Ho > 
1He} - column vector of nodal point temperatures 


X. - natural coordinates of node i (either 1 or -1) 


Similarly, the global coordinate of any point within the element 


“is related to the global coordinates of the nodal points by the following 


equation: 
X =< H. > {x} 
1x] 1X2 epee 
where 
ia 
{x, } Fig Ai 2 > 


oH. 
jie i 5 
ha palm Ti ctl Nh BP gg HY Si 
1x2 2x1 X20 2x 


Similar ‘to the three-dimensional case, one obtains: 


3 BCLS hry DA Cee 
9X OX 4 wax ox 
where 
Jt, woe 
OX 


is the Jacobian. From Eq. (2.40) it can easily be shown that: 
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(2.40) 


(2.41) 


(2.42) 


(2.43) 


where L is the length of the element. 


Use of Eq. (2.42) in Eq. (2.41) yields: 


3H sige 2 eeialant ea 
[Bl oe weesouied omsoy cet suet 6 oclel pal bryrrle DE (2.45) 
5x aS L Cae PE 
Finally, the eiement conductivity matrix is given by: 
-1 ; 
ij L -1 1 
kK. = B2tk.f Beedy B=05 {Pek < ~— ~> dv (2.46) 
a8 Vol al VOI a 1 Ut 
2x2 2x1 1x1 1x2 ic 


Since in this case all the terms under the integration sign are 
constant, there is no need for numerical integration and the integral 
can be evaluated explicitly as follows: 


iE 
3 ied 
ip SOS res oe ae: 
ab Vol. 
LL 
ik 
Be ed ail era Pa (2.47) 
m Baik ; 
uF 
L 
Howe 
k = A 
+ aed Wy 1 


where A is the area of the cross-section of the element. 
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2.4 Capacity Matrix [Cc] 


The heat capacity associated with a node is the rate at which heat 
is absorbed for a unit rate of change of the temperature of that node. 
The capacity matrix is idealized through a system analogous to the lumping 
of mass in dynamic analysis. This approach has the important advantage of 
resulting in a diagonal capacity matrix. This lumping is achieved by 
delineating the volume adjacent to a node by a perimeter drawn through the 
centroids of the surrounding elements. Thus, the volume tributary to a 
node is found by adding a contribution from each element bounding the node, 
calculated as.follows: 


A. Three-Dimensional Isoparametric Element 


The contribution of an element, m, to a node, i, iS given as : 


Cat S24 fe O(T) G(T) (2.48) 


where Va is the volume of element adjacent to node i. 


B. Two-Dimensional Isoparametric Element 


The contribution of an element, m, to a node, i, is given as: 


taste iV, o(T) C,(T) (2.49) 


where ve = teA is the volume of element adjacent to node i. A is the area 
and t is the thickness of the quadrilateral element. 


C. One-Dimensional Isoparametric Element 


The contribution of an element, m, to a node, i, is given as: 


Casi 2 hoo We pariecatm) | (2.50) 


where Vin = A-L is the volume of element adjacent to node i. 


Therefore, the heat capacity of node i is 
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he E51) 


where 
M ~ all elements adjacent to node i 


Finally, the diagonal system capacity matrix C is assembled by repeating 
the above calculation for each node. 


2.5 External Heat Flow Vector {Q} 


The external heat flow vector term in the matrix equations (2.6) can 
be separated into its constituent parts as follows: 


Q9 SP) pw as FO (2.52) 


where 


Qe - heat flow caused by the exposure of the system 
to an external source (e.g., a fire) on the 
boundary 


Q - a prescribed heat flow on the boundary 


QF ~ - heat flow from an exothermic reaction within 
the system (e.g., concrete hydration, wood 
combustion) 


Each of these three terms is calculated individually in FIRES-T3 as follows: 


A. Convection and Radiation Boundary Conditions 


The term Q- is considered a function of both convective and radiative 
mechanisms. Fires normally affecting structures are here considered to 
be those in a post-flashover phase, which leads to the assumption of a 
uniform room temperature. The time-temperature relationship for a fire is 
represented by the function T(t). It must realized that this tempera- 
ture is at best a pseudo-representation of a very complex phenomenon. 


The boundary of the system exposed to fire is assumed to be composed 
of surfaces bounding adjacent nodes. Thus, the external heat flow for a 
node can be represented by: 
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where 
AE vcs Prey area for the node 
q - rate of heat flow per unit area 
if 7 surface temperature 
Te ts temperature of pseudo-fire 


The value of QF for a surface node exposed to fire is assembled by 
considering the contributions of surrounding surfaces. 


The rate of heat flow can be modeled linearly or nonlinearly: 


1. Linear heat transfer for fire: 


q 4 h(T )(T, ¥ a) 
where 
nl?) - heat transfer coefficient 
u = Te te Te) iz 
2. Nonlinear heat transfer from fire: 
a N : aad 4 
q = A(T, ~ bee + V oLae oe €.0¢] 
where 
A - convection coefficient 
N Ss convection power factor 
V = radiation view factor 
Oo = Stefan-Boltzmann constant 


a = absorption of surface 
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(2253) 


(2.54) 


(2.55) 


Er 4 emissivity of the flame associated with fire 


O- ~ absolute temperature of fire 
E, - surface emissivity 
0. - absolute temperature of surface 


B. Prescribed Heat Flow Boundary Condition 


In this case, the prescibed heat flow at the nodes at different times, 
Qn? are input directly to the computer program FIRES-T3. 


C. Internal Heat Generation due to Exothermic Reaction 


The heat flow at each node due to internal heat generation, Qe» 
is assembled by considering the contribution of each element bounding the 
node, i.e., 


= = q,(V > t) Vin i (2.56) 


where 


= internal heat flow at node i 


M = all elements adjacent to node i which generate 
| heat 


heat generation per unit volume in element m 
(time-dependent) 


fe) 
= 
— 
<= 
ww 
ct 
~~ 
i} 


Va = portion of volume of element m that is tri- 
butary to node i 
= 5 V, for three-dimensional elements 


= ly for two-dimensional elements 


V. for one-dimensional elements 


= 


In FIRES-T3, the heat rate function qn Y > t) is input directly. Cooling 
is indicated by a negative sign. 
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2.6 Time Integration of Matrix Equations 


The unknown nodal temperature vector, {T}, in the matrix equation (2.6) 
is a function of time, {T(t)}. Hence, this equation is actually a first 
order differential equation in n dimensions and must be further discretized 
by step-by-step integration. The continuous nodal temperature history 
{T(t)} is represented by a finite sequence of temperature distributions 
{T(tp)}5 {T(t,)}5 {T(t,)}5 . . . By assuming that the variation of the 
temperature with time is linear within each time step (Fig. 2.4), the 
temperature rate of change {T} at any time t. can be approximated in terms of 
nodal temperatures: 


(T(t,)} = “{T(t,) - Tlt,_,)}vat, (2.57) 


where At; is the time step between t,_, and t.. The differential equations 
(2.6) can now be reduced to a set of linear algebraic equations in the 
independent variable {T(t,)}. There will be a set of equations for each 
time t. i=1, 2, .. ., and the step-by-step solution of each set 

results in an approximation to the nodal temperature history {T(t)} and, 
using Equations (2.8), (2.24) or (2.38), an approximation to the overall 
temperature distribution history T(x, y, x, t), T(x, y, t) or T(x, t). 

The accuracy of this finite element step-by-step integration approximation 
increases with the number of elements and with the smallness of time steps. 


To facilitate discussion of the solution scheme and the incorporation 
of boundary conditions into the equations, let Eq. (2.6) be partitioned in 


the following form: 


Oates 
= aeea) (2.58) 
where 
Un - unknown nodal temperatures 
Th - known (prescribed) nodal temperatures 
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(ts) 


iti) 


t=} tj t 


_ FIGURE 2.4 VARIATION OF TEMPERATURE WITH TIME WITHIN A TIME INCREMENT 


rar 


Q c known external nodal heat flow 


ors = unknown nodal heat flow 


Static condensation can be used to remove known temperature nodes from 
the equations, resulting in: 


[eo 1 tt (tp)e + CKe Tt (t. 2 = f0(t.)} - 0K TT, (2) cr 


Substitution of Eq. (2.57) into Eq. (2.59) yields: 


C c 
aa | aa 
hen Be, tT4{ty)} {Q, (taDF TSR IAT R(ts ee nt, Talty)}) (2. 60a) 


or in compact form 


[K]*{T,(t,)} = {Q(t,)}" (2. 60b) 
where 
Kl" - effective conductivity matrix 
* 
{Q(t.)} - effective heat flow vector 


The nodal temperatures at ts» T(t), are found directly by solving the 
above set of linear algebraic equations. 


Both K and ap can be functions of the current temperature T(t,), 
since material properties and fire boundary conditions can be temperature- 
dependent. There are two basic approaches that can be used to resolve 
this problem. 


1. Use the temperature distribution from the previous time step, 
T(t._,), to calculate the necessary values and thus solve Eq. (2.60) 
directly, or 

2. Use an iterative solution technique that allows the necessary 
variables to be continually revised on the basis of the current 
solution. 
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The type of numerical solution technique often used in solving linear 
algebraic equations - i.e. triangularization of Kk and then the back sub- 
stitution of Q. in order to obtain T(t.) - offers an additional variation 
.on the previously mentioned options. It is possible to derive K" on the 
basis of the previous temperature distribution, triangularize ke and then, 
with the use of an iterative technique, achieve a more accurate temperature 
vector in the determination of Out This separation into triangularization 
and back substitution is ideal for use in simulating fire phenomena since 
Q is extremely sensitive to the surface temperature of the structure. The 
effective conductivity matrix K" tends to be far less sensitive to tempera- 
ture than Q.. FIRES-T3 contains the option of either solving the entire 
problem (K™ and Q*) jteratively, or considering only the fire boundary 
condition term (Q”) in the iteration. 


To help accelerate convergence in the iterative processes, an over- 
convergence factor, 8, is used in estimating the temperature distribution 
of the next iteration, j + 1. 


Pome I(t.) + 8 (Toe T(t.) (2.61) 


Experience has shown that 8 should vary from -0.10 to -0.40 in the case 

of the nonlinear fire condition. Convergence is achieved when the tempera- 
ture distribution of two successive iterations coincide within a prescribed 
level of error expressed as 


aXe | ed ere THEI ER IT 


; a) < permissible error (2.62) 
(eet s) melee (to. | 
i i 


The step-by-step assembly and solution of Eq. (2.60) gradually traces 
out the temperature history in the structure. 


The structure of FIRES-T3 is shown in the following flow charts. 
Fig. 2.5 shows the organization of the main subroutine (FIRES-T3) which 
inputs the data describing the problem. The subroutine which controls 
step-by-step integration (HEATFLO) is presented in Fig. 2.6. 


An important feature of FIRES-T3 is that all system variables are 
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START 


Input Program Heading 

Input Nodal Data 
(NODE) 

Input Element Data 
(ELEMENT ) 

Input Thermal Properties 
(MATRIAL ) 
no Are Radiative and Convective yes 
Mechanisms Active? 


Input Fire B.C. 


Surface Properties 
(FIREMAT ) 


Surface Geometry 
(FIREBC) 


no , yes 
Is There Internal Heat Generation? 


Input Heat Generation 
(EXOFUN and EXOELS) 


Input Convergence Data 
(CONVERG) 


Solve Problem 
(HEATFLO) 


END 


FIGURE 2.5 FLOW CHART FOR PROGRAM FIRES-T 


(Titles in Parenthesis are Names of Subroutines) 
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Initialize System Input Current 
Time Step Information 


Assume Temperature oes Is Time Step ue 


Distribution (T, = T._) Sequence Ended? 


Form K(T.), Store in Calculate Internal 
Array A’ (HCONDC) Heat Generation Vector Q 


Store in Array 8 


Modify Arrays A and B 


For the Boundary 
Conditions (HATEMP) Form C(T.), Store in 


Array Q (HCAP ) 


Modify A by Diagonal 
Capacity Term Q/At 
Reduce A to (Sena a 


Form  (MSYM 


MS Is this the First sb é me Capacity 4 
; System Iteration? ontribution to Q an 
Store in Array T2 
B=B+T2 andQ=B 


Tm =Q* T,/At 
Solve For New J. (MSYM) B=B+Q, (FIRE) 
yes Has I. Converged Estimate New I. 
For Fire B.C.? Set B = Q 
no Has T. Converged VSS Print Output if Desired 
For System? (PROUT) 
Punch Quput if Desired 
Estimate New T. ( PUOUT ) 


FIGURE 2.6 FLOW CHART FOR SUBROUTINE HEATFLO ASSUMING FIRE 
BOUNDARY CONDITIONS 


Calculate Fire Load Qe 
and add to B 


(Titles in Parenthesis are Names of Program Subroutines) 
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dynamically dimensioned. That is, the amount of computer storage space 
allotted for each variable is specified based on the size of the problem 
being analyzed. The organization of this dynamic dimensioning scheme is 
shown in Table 2.1. 
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3. COMMENTARY 


FIRES-T3 and its predecessor FIRES-T have been used to solve a wide 
variety of heat flow problems [4, 7]. Experience gained in these analyses 
is drawn upon to present here a brief commentary on practical aspects of 
using the program. 


Few difficulties are encountered in thermal analyses governed by 
specified temperature or heat flow boundary conditions. The principal 
factors which determine the effective use of the program are the layout of 
the finite element mesh and the selection of time-step intervals. On the 
one hand both must be fine enough to properly model the thermal behavior of 
the structure, and on the other as few elements as possible should be 
used since computational effort increases roughly with the cube of the num- 
ber of nodes. Also, nodes should be numbered in such a way as to minimize 
the bandwidth of the resulting matrix equations. Time-step size can vary 
during the time integration to most efficiently reflect the expected rate 
of temperature change. 


The heat flow problem is nonlinear whenever conductivity or heat capacity 
are temperature-dependent. However, with models of thermal properties used 
here this nonlinearity is negligible within a time step and adequate results 
are obtained by a linearized analysis (number of iterations = 0), thereby 
greatly reducing solution cost. When boundary conditions are linear, 
convergence is effected in a few iterations with little likelihood of 
instability. However, the fire boundary condition, including both conduction 
and radiation terms, is highly nonlinear and in order to ensure convergence 
of an iterative soiution the time step size must be kept quite small, since 
numeric instability in the region of the fire surface can result when fire 
temperatures are high. A higher-order nonlinear technique (such as Newton- 
Raphsen iteration) would improve stability and convergence rate of the 
solution and may be incorporated into a future version of FIRES-T3. ‘%ver- 
convergence factors also improve the stability of the nonlinear iteration 
and are recommended when using the nonlinear fire boundary condition. When 
divergence occurs at some time step in an analysis, it is best to shorten the 
time step size for the remaining part of the analysis and restart the step- 
by-step solution from the last converging time step. Therefore, 


Shs, 


whenever it is impossible to know a priori the time step sizes needed, 
nodal temperatures should be punched at each time step in case a restart 
is necessary. 


The fire environment in FIRES-T3 is modeled through a pseudo-fire, 
defined by a time-temperature curve, and the convective and radiative heat 
flow terms in the fire boundary condition. The phenomena associated with 
heat transfer in the turbulent environment of a fireare difficult to model 
exactly. The possibility of including the temperature dependence of the 
related parameters may be included, and the detailed temperature and flow 
fields in a fire compartment may be modeled by subdividing the fire into 
zones with different characteristics. In the pseudo-fire concept the 
critical parameters appear to be the emissivity of both the flame and the 
surface of the structural element. This assumes that at the temperatures 
normally associated with fires, the radiative heat transfer mechanism 
predominates. At present, a value of 0.9 is used for the emissivity of 
concrete. The value of flame emissivity appears to be more uncertain with 
potential values ranging from 0.3 to 0.9. Current work indicates a possible 
dependency of the flame emissivity on the particular content of the flame, 
which may vary greatly from the controlled fire of a test furnace to that 
of the uncontrolled environment of an actual fire. In addition, radiation 
sources, compartment enclosure surfaces, may contribute to the overall] 
fire boundary condition problem. 


The radiation component of heat transfer at a boundary of an element 
exposed to fire depends on the spatial configuration of the enclosure, the 
geometry of the element under consideration, and the emissivities of the 
fire, the element surface, and the enclosure surface. For concrete structural 
elements surrounded by fire the effective emissivity e« falls in the range 
of 0.3 to 0.9 [9]. The radiation boundary condition in Equation (2.55) is 
an attempt to represent the influence of the fire and the element surface 
emissivities on the radiative heat transfer. This approximation is sensitive 
to the selection of Eg and Ee values. Unless it can be shown by comparison 
with experimental data that this approximation give reliable results, it is 
recommended that for concrete structures exposed to fire both values of 
E, and E. where 0.5 < € < 0.7 be replaced by effective emissivity e. 
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The capability of modeling internal heat generation in FIRES-T3 
introduces no numerical complications or sensitivities. This option 
could be used to include the effects of internal combustion in a fire 
analysis [5]. Also, it could solve a variety of other temperature problems 
such as determining temperature rise in mass concrete due to hydration 
of cement paste [4]. 
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APPENDIX A 


INPUT INSTRUCTIONS FOR FIRES-T3 


APPENDIX A - INPUT INSTRUCTIONS FOR FIRES-T3 


Contents 
Heading Card | | A-4 
Nodal Data | | + nee 
Element Data | | A-5 
Thermal Material Property Data A-10 
Fire Boundary Condition Data Aata 
Internal Heat Generation Data A-19 
Convergence Criteria A-02 
Initial Conditions A-23 
Time-Fire History A-25 
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NOTE/ 
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note 


QQ). 


NOTE/ 


note 


NOTES/ 


HEADING CARD (6A10) 


Begin each new data case with a heading card. To halt the program 
insert two blank cards instead of a heading card. 


NODAL DATA 


A. Control Card (Alphanumeric) 
NODES, NI, N2 


field variable entry 

NODES -- Enter the word "NODES" 

N1 NUMNP Number of nodal points 

N2 NTBC Number of nodal points with a specie 


temperature boundary condition 


This is an alphanumeric control card containing both a key word 
(NODES) to identify the block of input data to follow and control 
parameters (N1 and N2) for that block of data. Alphanumeric 
control cards are left-justified with no blanks in the list. Note 
the examples in Fig. A.1. 


B. Nodal Cards (15,3E10.0) 


columns variable entry 
1-5 N Nodal point number 
6-15 X(N) X-coordinate 
16-25 Y(N) Y-coordinate 
26-35 Z(N) | Z-coordinate 


(1) Nodal point cards must be in numerical sequence. If cards are 


omitted, the missing nodes are generated at equal intervals 
along a straight line between the bounding nodal points. 


(2) Nodal coordinates may be input using any system of units. 


However, this same system must be used to define all other 
input quantities that follow. 


(3) In purely two-dimensional heat flow problems, leave the 


Z-coordinate blank. 
A-4 


C. Specified Temperature Nodes (1615) 


Omit this card if (N2) on the control card is zero 


note columns variable entry 
(1) 1-5 ID(1) Node number of first node in which 
temperature is fixed as a boundary 
condition 
6-10 ID(2) Node number of second specified temper- 
ature node 
(2) ? ID(N2) Continue until all N2 nodes are input 
NOTES/ 


(1) Three types of boundary conditions are possible in FIRES-T3: 
1) Temperature specified 
2) Heat flow specified 


3) Fire B.C. 


If the first type of B.C. is to be used, all nodes with a 
specified temperature must be identified on this card. 
Actual temperatures are input later in Data Block IX. All 
boundary nodes not specified here are assumed to have a 
boundary condition of type 2 or type 3. 


(2) Input 16 temperature nodes per card. 


III. ELEMENT DATA 


A. Control Card (Alphanumeric) 
ELEMENTS, N1, N2, N3 
note field variable entry 


(1) ELEMENTS -- Enter the word "ELEMENTS" 


A-5 


(2) NI NELID Number of one-dimensional elements 


(3) N2 NEL 2D Number of two-dimensional elements 
(4) N3 NEL3D Number of three-dimensional elements 
NOTES/ 


(1) This is an alphanumeric control card with key word (ELEMENTS) 
and control parameters (N1, N2 and N3) as in Fig. A.1. 


(2) Enter the total number of one-dimensional elements to be 
used. If 1-D elements are not to be used, enter "0" as NI. 


(3) Enter the number of two-dimensional elements. If 2-D elements 
are not used, enter "0" as N2. 


(4) Enter the number of three-dimensional elements. If 3-D elements 
are not used, enter "0" as N3. 


A single mesh may utilize all three of the above element types. 


B. One-Dimensional Element Cards (415, F10.0) 


Omit these cards if (N1) on the control card above is zero 


note columns variable entry 
(1) 1-5 NUM - Element number 
GE.1 and LE. NELID 
(2) 6-10 I Nodal point I 
11-15 J Nodal point J 
(3) 16-20 MTYPE Material identification number 
(4) 21-30 BAREA Cross-sectional area of one-dimensional 
element 
NOTES/ 


(1) Elements must be input in ascending element number order. If 
element cards are missing, the program generates the missing 
elements by incrementing NUM and nodal points I and J. A: 
generated element assumes the material type and cross-sectional 
area of the element immediately preceding it. The last one- 
dimensional element in the mesh cannot be generated. 


(2) 


(3) 


(4) 


note 


(1) 


(2) 


(3) 
(4) 


NOTES/ 
(1) 


The program uses isoparametric bar elements defined by their 
end nodes I and J, as shown in Fig. A.2(a). Enter the global 
node number of each end node. These one-dimensional bar 
elements may be used in a two- or three-dimensional nodal mesh. 
Any orientation in space is permissible. 


One or more sets of thermal material properties are input in 
the next data block, each of them labelled by an identification 
number. Enter the identification number of the material this 
element is Composed of. 


Enter the cross-sectional area of the one-dimensional element, 
as shown in Fig. A.2. For a purely one-dimensional analysis, 
set (BAREA) equal to unity (1.0). 


Two-Dimensional Element Cards (615, F10.0) 
Omit these cards if (N2) on the control card above is zero. 


columns variable entry 


1-5 NUM Element number 
GE.1 and LE. NEL2D 

6-10 I Nodal point I 

11-15 J Nodal point J 

16-20 K Nodal point K 
21-25 L Nodal point L 
26-30 MTYPE Material identification number 

31-40 THICK Thickness of two-dimensional element 


EQ.0.0, default of 1.0 used 


Two-dimensional elements must he input in ascending element 
number order. Start with "1" even if one-dimensional elements 
have also been used. If element cards are missing, the 
program generates the missing elements by incrementing NUM 

and nodal points I, J, K, and L. A generated element assumes 
the material type and thickness of the element immediately 
preceding it. The last two-dimensional element in the mesh 
cannot be generated. 


+ CROSS-SECTIONAL AREA — 
J 


(a) ONE-DIMENSIONAL ELEMENT 


K K AND L 
U 
THICKNESS - 
I it J 
J 


QUADRILATERAL DEGENERATE QUADRILATERAL 
(TRIANGLE ) 


(b) TWO-DIMENSIONAL ELEMENTS 


M AND N 


Be [ O AND P 
; 


HE X AHEDRON TYPICAL 
| DEGENERATE HEXAHEDRON 


(c) THREE-DIMENSIONAL ELEMENTS 


FIGURE A.2 ELEMENTS AVAILABLE IN FIRES-T3 
N-8 


(2) The program uses quadrilateral isoparametric elements defined 
by their corner nodes (I, J, K, L). Enter the global node 
number corresponding to each of these four corner nodes in 
counterclockwise order, as shown in Fig. A.2(b). Triangular 
elements can be formed by specifying a degenerate quadrilateral, 
i.e., by letting K and L be defined by the same global nodal 
point (see Fig. A.2(b)). 


These two-dimensional elements may be used in three-dimensional 
analyses. It is most economical to define two-dimensional 
elements in an (X, Y) plane (Z = constant, not necessarily 
zero). However, it is also possible to define two-dimensional 
elements in an (X, Z) plane or ina (Y, Z) plane. Two- 
dimensional flow in skewed planes must be modelled by a layer 
of three-dimensional elements. 


(3) One or more sets of thermal material properties are input in 
the next data block, each of them labelled by an identification 
number. Enter the identification number of the material this 
element is composed of. 

(4) Enter the thickness of the two-dimensional quadrilateral 


(or triangle), as shown in Fig. A.2(b). For a purely two- 
dimensional analysis, set (THICK) equal to unity (1.0). 


D. Three-Dimensional Element Cards (1015) 
Omit these cards if (N3) on the control card above is zero 


note columns variable entry 


(1) 1-5 NUM Element number 
GE.1 and LE. NEL3D 

(2) 6-10 I Nodal point I 
11-15 J Nodal point J 
16-20 K Nodal point K 
21-25 L Nodal point L 
26-30 M Nodal point M 
31-35 N Nodal point N 
36-40 0 Nodal point 0 
41-45 C Nodal point P 

(3) 46-50 = MTYPE Material identification number 
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NOTES/ 


IV. 


(1) 


(2) 


(3) 


Three-dimensional elements must be input in ascending element 
number order. Start with "1" even if one-dimensional or two- 
dimensional elements have also been used. If element cards 
are missing, the program generates the missing elements by 
incrementing NUM and nodal points I, J, K, L, M, N, 0, and P. 
A generated element assumes the material type of the element 
immediately preceding it. The last element in the mesh cannot 
be generated. 


The program uses hexahedral isoparametric elements defined by 
their corner nodes (I, J, K, L, M, N, 0, P). Enter the global 
node number corresponding to each of these eight corner nodes 
in counterclockwise order, bottom layer first, as shown in 
Fig. A.2(c). Pentahedral or tetrahedral elements may be 
formed by specifying a degenerate hexahedron, i.e., by letting 
certain corner nodes be defined by the same global nodal 

point (see Fig. A.2(c)). Three-dimensional elements are 
comparatively expensive to form and lower order elements (one- 
dimensional or two-dimensional) of appropriate thickness should 
be used in those portions of a solid where heat flow is one- 
or two-dimensional. 


One or more set of thermal material properties are input in 

the next data block, each of them labelled by an identification 
number. Enter the identification number of the material this 
element is composed of. 


THERMAL MATERIAL PROPERTY DATA 


Control Card (Alphanumeric) 


MATERIALS, NI 


field variable entry 
MATERIALS -- Enter the word "MATERIALS" 
N1 NMAT Number of different material types 


NOTE/ This is an alphanumeric control card with key word (MATERIALS) and 
main control parameter (N1), as in Fig. A.1. 


B. 


Material Data 


Input the following set of cards for each material type: 


1. Control Card (315) 
note = — columns variable entry 


(1) 1-5 MK Number of points used to define heat 
conductivity function 
EQ.0, constant conductivity 


(1) 6-10 MCP Number of points used to define speci- 
fic heat capacity function 
EQ.0, constant heat capacity 


(1) 11-15 MD Number of points used to define 
density function 
EQ.0, constant density 


NOTE/ 


(1) Each material type is characterized by three material parameters: 
thermal conductivity, thermal heat capacity, and density. Each 
of these may be input as a constant or as a tabular function of 
temperature. At least two points are needed to define each 
function, and linear interpolation is used between points. 


2. Heat Conductivity (8E10.0) 


note columns variable entry 
(1) 1-10 xX Gly) Temperature of point 1 
11-20 Y(1) Value of conductivity function at point 1 
21-30 X(2) Temperature of point 2 
Y(MK) Continue until all (MK) points are input. 


NOTE/ 
(1) 


HEAT CONDUCTIVITY 


Input the table that defines the heat conductivity function. 
Each point is described by an ordered pair (X, Y), where X is 
temperature and Y is the value of heat conductivity at that 
temperature, as shown in Fig. A.3. Input 4 such pairs per 
card and use as many cards as necessary. The table for the 
function must be defined over the entire temperature range to 
be considered in the solution process - i.e. extrapolation 
below the lowest point or beyond the highest point is not 
permitted. 


If conductivity was specified constant with temperature 
(MK.EQ.0) enter the constant value in columns 1-10. 


Units for material properties must be consistent with units 
used for other input quantities (nodal coordinates, tempera- 
ture, time step size, etc.). 


(x(1),¥(1)) 


(x(2),Y(2)) 


(xX(3), ¥(3)) 


TEMPERATURE 


FIGURE A.3 MATERIAL PROPERTY TABLE FORMAT 


3. Specific Heat Capacity (8E10.0) 


(same as above) 


V. 


note 
(1) 
(2) 


(2) 


(2) 


(3) 


4. 


Density (8E10.0) 


(same as above) 


FIRE BOUNDARY CONDITION DATA 


A. 


NOTES/ 


Control Card (A*phanumeric) 


FI 
fi 
FI 
N] 


N2 


N3 


N4 


RE, N1, N2, N3, N4 


eld variable entry 
RE - Enter the word "FIRE" 
NFBC1D Number of one-dimensional surface nodes 


exposed to fire 


NFBC2D Number of two-dimensional surface segments 
exposed to fire 


NFBC3D Number of three-dimensional surface areas 
exposed to fire 


NBCMAT Number of different surface material types 


(1) This is an alphanumeric control card with key word (FIRE) and 


(2) 


(3) 


control parameters (N1, N2, N3, and N4), as shown in Fig. A.1. 


If fire boundary conditions are not to be used, insert as 
control card "FIRE, 0, 0, 0, 0" and go on to Data Block VI. 


The fire boundary condition is idealized through the identi- 
fication of surface segments and their associated thermal 
properties. For one-dimensional elements, enter (N1), the 
total number of boundary nodes exposed to fire (see Fig. A.4(a)). 
For two-dimensional elements, enter (N2), the total number of 
element edges (surface segments) exposed to fire (see 

Fig. A.4(b)). For three-dimensional elements, enter (N3), 
the total number of element surfaces exposed to fire (see 
Fig. A.4(c)). 


Enter the number of different materials used to define fire 
surface properties. 


ELEMENT LELEM(N) 
; Gi. LI(N) 
FIRE SURFACE 


NODE N 


(a) TYPICAL FIRE B.C. SURFACE NODE 
FOR I-D ELEMENTS 


FIRE SURFACE 


NODE LI(N) SEGMENT N 


NODE LuJ(N) 


(b) TYPICAL FIRE B.C. SURFACE SEGMENT 
FOR 2-D ELEMENTS 


NODE LL(N) 
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it 
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(c) TYPICAL FIRE B.C. SURFACE AREA 
FOR 3-D ELEMENTS 


FIGURE A.4 DESCRIPTION OF FIRE SURFACE 
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B. Linear/Nonlinear Model Card (Alphanumeric) 
note columns entry 
(1) 1-9 Enter the word "LINEAR" or the word "NONLINEAR" - one 
or the other. 
NOTE/ 


(1) Either a linear or a nonlinear model may be used for the fire 
boundary condition. Specify the type on this card. 


C. Material Description 


1. Linear Material Data 


Omit if control card above is "NONLINEAR". Otherwise, input 
the following set of cards for each material type. 


a. Control Card (15) 
note columns variable entry 
(1) 1-5 K Number of points used to define linearized 
heat transfer function 
EQ. 0, constant function 
NOTE/ 
(1) Linear surface material properties are input in the same way 
as conductivity, heat capacity and density in Data Block IV 
(page A-10) 
b. Data Cards (8E10.0) 


(same as previous material function input, IV.B.2 
page A-]]., 4 pairs per card 


‘\ 


2. Nonlinear Material Data 
Omit these cards if control card above is "LINEAR": 


a. Constant Data Card (2E10.0) 


note columns variable entry 
1-10 SB Stephan - Boltzman constant 


11-20 - TSHIFT Shift for absolute temperature 
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note 


(1) 


NOTE/ 


b. Material Data Card (6£10.0) 
Input the following card for each material type: 


columns variable entry 


1-10 A Convection factor 

11-20 P Power of convection factor 
21-30 V View factor for radiation term 
31-40 AB Absorption of surface 
41-50 EF Emmissivity of flame 
51-60 ES | Emmissivity of surface 


See Page 22 for explanation of nonlinear fire boundary condition. 


D. 


~ note 


(1) 


NOTE/ 
(1) 


Description of Fire Surface 


1. Control Card (Alphanumeric) 
SURFACE, NI, N2, N3 


field variable entry 

SURFACE -- Enter the word "SURFACE" 

NI NS] Number of one-dimensional surface nodes to 
be input below 
LE. NFBC1D 

N2 NS2 Number of two-dimensional surface segments 
to be input below 
LE. NFBC2D 

N3 NS3 Number of three-dimensional areas to be 
input below 
LE. NFBC3D 


This is an alphanumeric control card with key word (SURFACE) and 
control parameters (N1, N2, and N3), as shown in Fig. A.1. Enter 
the number of each type of fire B.C. surface elements that will 
be input on the cards that follow. The number of each type of 
element must be less than the maximums defined on Card V.A. 
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2. Description of One-Dimensional Fire Surface Nodes (1615) 


Omit this card if (N1) on control card above is zero: 


note columns 
(1) 1-5 
(2) 6-10 
(3) 11-15 
(4) 16-20 
21-25 
NOTES/ 


variable 
LI(1) 
LMAT(1) 


LFIRE(1) 
LELEM( 1) 


LE C2) 


(1) See Fig. A.4(a) 


entry 
Node number of first boundary surface node 


Material type for this surface node 
LE. NBCMAT 


Fire number for this surface node 
Element number of one-dimensional iso- 
parametric bar element adjacent to this 
surface node 


Node number of second boundary surface 
node. 


Continue until all (NS1) nodes are input, 
four nodes per card. 


(2) Specify which of the material descriptions input on Cards V.C 
above applies to this boundary node. 


(3) A surface element can be subjected to one of four fires to be 
input later in the Time-Fire History Data Block. 


(4) The area of the surface exposed to fire is taken to be the 
cross-sectional area of the one-dimensional bar element 
connected to that surface node, as shown in Fig. A.4(a). One- 
dimensional fire surface nodes can only be used in conjunction 
with one-dimensional bar elements. 


3. Description of Two-Dimensional Fire Surface Segments (1515) 


Omit this card if (N2) on control card above is zero. 
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note columns variable entry 


(1) 1-5 LI(1) Node number of segment end I for first 
surface segment 
(1) 6-10 LJ(1) Node number of segment end J for first 
- surface segment 
(2) 11-15 LMAT (1) Material type for this surface segment 
LE. NBCMAT 
(3) 16-20 LFIRE(1) Fire number for this surface segment 
(4) 20-25 LELEM(1) Element number of two-dimensional quadri- 
lateral or triangular element adjacent to 
this surface segment 
26-30 LI(2) Node of number of segment end I for second 
surface segment 
Continue until all (NS2) segments are input, 
three segments per card 
NOTES/ 
(1) Surface segment runs from I to J, as shown in Fig. A.4(b) 
(2) Specify which of the material descriptions input on Cards V.C 
above applies to this surface segment. 
(3) A surface segment can be subjected to one of four fires to be 
input later in the Time-Fire History Data Block 
(4) The edge of one of the quadrilateral elements lies between 


4. 


nodes I and J. Enter the number of that element so that its 
thickness may be used in determining the area of the surface 
exposed to fire. Two-dimensional fire surface segments can 
only be used in conjunction with two-dimensional isoparametric 
elements. 


Description of Three-Dimensional Fire Surface Areas (1215) 


Omit this card if (N3) on control card above is zero. 


note 


(1) 


(2) 


(3) 


NOTES/ 


VI. 


columns 


1-5 


16-20 


21-25 


26-30 
31-35 


variable 


LI(1) 


LJ(1) 


LK(1) 


LL(1) 


LMAT(1) 


LFIRE(1) 
LI(2) 


entry 


Node number of corner I for first surface 
element 


Node number of corner J for first surface 
element 


Node number of corner K for first surface 
element 


Node number of corner L for first surface 
element 


Material type for this surface element 
LE. NBCMAT 


Fire number for this surface element 


Node number of corner I for second surface 
element 


Continue until all (NS3) surface elements 
are input, two elements per card | 


(1) A surface area is defined by the four nodes, I, J, K, and L, 
as shown in Fig. A.4(c). These must be input in counter- 
clockwise order and lie in the same plane. 


(2) 


(3) 


Specify which of the material descriptions input on Cards V.C 
above applies to this surface area. 


A surface area can be subjected to one of four fires to be 
input later in the Time-Fire History Data Block 


A. Control Card 


INTERNAL HEAT GENERATION DATA 


(Alphanumeric) 


EXOTHERMIC, NI, N2, N3, N4 
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NOTES/ 
(1) 


note 


(1) 


(2) 


NOTES/ 
(1) 


field variable entry 
EXOTHERMIC -- Enter the word "EXOTHERMIC" 


N1 NINTID Number of one-dimensional elements with 
internal heat generation 


N2 NINT2D Number of two-dimensional elements with 
internal heat generation 


N3 NINT3D Number of three-dimensional elements 
with internal heat generation 


N4 NQINT Number of different heating functions 


This is an alphanumeric control card with key word (EXOTHERMIC) 
and control parameters (N1, N2, N3, and N4), as shown in Fig. A.1. 


If internal heat generation is not being considered, insert as 
control card "EXOTHERMIC, 0, 0, 0, 0" and go to Data Block VII. 


Enter how many of each type of element undergoes internal heating 
from processes such as hydration, combustion, etc. 


Enter the number of heat-rate vs. time functions to be considered. 


Internal Heat Generation Functions 


Input the following set of cards for each heating function: 


1. Control Card (215) 


columns variable entry 

1-5 MK Number of points used to define heating 
function 
GE.2 

6-10 MT Type of heating curve input 


EQ.0, heat flow per unit volume 
EQ.1, heat flow per unit mass 


Internal heating rate is input as a tabular function of time. At 
least two points are needed to define each function and linear 
interpolation is used between points.. 
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(2) Heating rate may -be defined as heat per unit time per unit 
volume or as heat per unit time per unit mass. Units must 
be compatible with other input data. 


2. Heat Function (3E10.0) 


note columns variable 
(1) 1-10 X(1) 
11-20 Yin) 
21-30 X(2) 
Y (MK) 
NOTE/ 


entry 
Time of point | 
Value of heat rate at point 1 


Time of point 2 


Continue until all (MK) points are 
input 


(1) Input the table that defines internal heating rate in the same 
way as conductivity, heat capacity and density in IV.B.2, 


4 points per card. 


C. Data for One-Dimensional Elements (1615) 


Omit this card if (N1) on control card is zero. 


note columns variable 
1-5 IEL(1) 
6-10 IMAT(1) 
11-15 IEL(2) 
16-20 IMAT(2) 
_IMAT(NINT1D) 


entry 


Element number of first one-dimensional 
bar element undergoing internal heating. 


Heat function number for first element 


Element number of second one-dimensional 
element undergoing internal heating 


Heat function number for second element 


Continue until all (NINTID) elements are 
input, 8 elements per card. 
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D. Data for Two-Dimensional Elements (1615) 
Omit this card if (N2) on Control Card is zero. 
Input element number and heat function number for all (NINT2D) 
two-dimensional elements, 8 per card, in the same way as above. 
E. Data for Three-Dimensional Elements (1615) 
Omit this card if (N3) on Control Card is zero. 
Input element number and heat function number for all (NINT3D) 


three-dimensional elements, 8 per card, in the same way as 
above. 


VII. CONVERGENCE CRITERIA 


A. Control Card (Alphanumeric) 


CONVERGENCE 
note field variable entry 
(1) CONVERGENCE -- Enter the word "CONVERGENCE" 


NOTE/ 


(1) This is an alphanumeric control card with key word (CONVERGENCE) 
and no control parameters, as in Fig. A.1. 


B. Convergence Criteria Card (15,2F10.0,15,2F10.0) 


note columns variable entry 

(1) 1-5 NCONV Maximum number of iterations permitted 
for fire B.C. solution 

(1) 6-15 CONV Permissible relative error for fire B.C. 
iteration 

(2) 16-25 BETA Overconvergence factor for fire B.C. 
iteration 

(3) 26-30 NCONU Maximum number of iterations permitted 


for system solution in each time step 
EQ.0, linear solution - no iteration 
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note 


(3) 


(2) 


NOTES/ 


(1) 


(2) 
(3) 


columns variable entry 


31-40 CONU Permissible relative error for system 
iteration 

41-50 ALPHA Overconvergence factor for system 
iteration 


The fire boundary conditions are temperature-dependent and 

require an iterative solution process, controlled by variables 

(NCONV) and (CONV) as defined on page 27. If there are no 

Deeg or if no iteration is desired, leave columns 1-25 
ank. 


See page 27 . To ignore overconvergence factors, leave blank. 


When material properties (heat conductivity, etc.) are 
temperature-dependent, an iterative process is needed to solve 
the nonlinear heat flow problem. However, usually it suffices 
to forgo iteration when material properties change little during 
a time step, thereby reducing greatly computation costs. In 
this case (or for linear heat flow problems) leave columns 

26-50 blank. | 


VIII. INITIAL CONDITIONS 


note 


(1) 


(1) 
(2) 


(3) 


EAs 


Initial Time Step Control Card (A4,16,2F10.0,2X,A3) 


columns variable entry 
1-4 IA Enter the word "STEP" 
5-10 MDT Initial number in sequencing of time 
~ steps 
11-20 TIME Initial time (i.e., base time) 
21-30 TEMP Uniform initial temperature (If 


initial temperature is nonuniform, 
leave cols. 21-30 blank and input 
nodal temperatures on the data card 


below) 

B1=32 76 ss blank 

33-34 JP 3-symbol alphanumeric code that will 
appear in columns 74-76 of punched out- 
put. 
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NOTES/. 
(1) 


(2) 


(3) 


B. 


note 


(1) 


NOTE/ 
(1) 


The usual starting point for time step sequencing is "0" 
and the usual initial time is "0.0". However, nonzero values 
may be specified if desired. 


All nodal temperatures are initialized to this value unless 
its value is "0.0", in which case all initial nodal tempera- 
tures must be input on Card XIII.B below. 

If these columns are left blank the code "NODE" will appear on 


punched nodal temperatures and the code "ELEM" on punched ele- 
ment temperatures. 


Initial Temperature Distribution Data (7(4X,F6.1)) 


Omit this card if (TEMP) on control card above is nonzero. 


columns variable entry 
1-4 -- blank 
5-10 T(1) Initial temperature at node 1 
11-14 -- blank | 
15-20 T(2) Initial temperature at node 2 
T(NUMNP ) Continue until all nodal points are 
input. 


Enter the initial nodal temperatures, seven (7) nodes per data 
card, using as many cards as necessary. This format is compa- 
tible with punched output from the program; hence, this option 
can be used to restart a previous analysis that must be continued 
for a longer time period. For a restarted analysis change the 
initial time (TIME) on the control card to the time at which 

the previous analysis ended. 
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IX. 


note 


(1) 
(2) 
(3) 


(4) 


(5) 


(6) 


TIME-FIRE HISTORY 


‘ 


For each time step input the following block of data: 


A. Time Step Control Card 


columns 
1-4 
5-10 

11-20 

21-25 


26-35 
36-45 
46-55 
56-65 
66-68 


69-71 


72-74 


15-77 


variable 
IA 

NDT 

DT 

ITOF 


TEIREC A) 
TFIRE(2) 
TFIRE(3) 
TFIRE(4) 
I] 


I2 


16 


I7 


(A4,16,F10.0,15,4F10.0,413) 


entry 

Enter the word "STEP" 
Time step number 
Time step interval 


Number of non-zero flow or temper- 
ature boundary conditions 


Temperature of fire ] 
Temperature of fire 2 
Temperature of fire 3 
Temperature of fire 4 


Printed output desired for this 

time step 

EQ.0, no output 

EQ.1, nodal temperatures 

EQ.2, element temperatures 

EQ.3, both nodal and element temper- 
atures 


Punched output desired for this time 
step 

EQ.0, no punched output 

EQ.1, nodal temperatures 

EQ.2, element temperatures 

EQ.3, both nodal and element temper- 
atures 


Intermediate printed output for 
debugging purposes 

EQ.0, no printout 

EQ.1, debugging printout 


Fire boundary condition flag 

EQ.0, continue with same fire B.C. 
surfaces previously defined 

EQ.1, input new fire B.C. surface in 
Data Block IX.C below 


A-25 


NOTES/ | 


(1) 


(2) 


(3) 


(4) 


(5) 


Time step cards must be input in SSRs sequence with no 
time steps omitted. 


Input the length of the time step in the same units used to 
define other input quantities. To end a data case input a 
negative time step size in these columns and then proceed to 
the next data case (Heading Card). 


Enter the total number of nonzero fixed heat flow or fixed 

temperature boundary condition nodes. The value of flow or 
temperature for each of these nodes is entered on the next 

data card. 


Up to four fire histories can be defined for use in conjunc- 
tion with the fire boundary conditions input in Data Block V. 
Enter the temperature of each fire at the end of the time 
step. 


If convergence difficulties are encountered in any particular 
analysis, this option may be called to print nodal temper- 
atures during each iteration. This option can also be used 
to determine an efficient overconvergence factor. 


A fire boundary surface is defined in Data Block V and can be 
used for all time steps in the fire history. However, it is 
possible to change the fire surface during any time step by 
setting (17) equal to "1" and inputting the new surface below. 
The new surface replaces the one previously input and is used 
for all subsequent time steps. 


Nonzero Boundary Condition Data (5(15,F10.0)) 


Omit this card if (ITOF) on Control Card above is zero. 


columns -— variable entry 
1-5 J(1) Node number 
6-15 FT(1) Specified temperature or flow at 
that node 
16-20 J(2) Node number 
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note 


NOTE/ 
(1) 


Ce 


columns . variable entry 


21-30 FT(2) Specified temperature or flow at 
that node 
FT(ITOF) Continue until all (ITOF) boundary 


nodes are input. 


Input the global node number and the specified temperature 
boundary condition or specified heat flow boundary condition for 
each of the (ITOF) boundary nodes. Enter five (5) nodes per 
data card and use as many cards as necessary. This data must be 
input for each time step - even if the boundary conditions do 
not change from time step to time step. Fixed flow nodes are 
differentiated from fixed temperature nodes using the information 
input previously in Data Block II.C. 


Description of New Fire Surface 


Omit these cards if (17) on the control card above is zero. 
1. Control Card (Alphanumeric) 
SURFACE, N1, N2, N3__ 


(Same format as Card V.D.1, page A-16) 


2. Description of One-Dimensional Fire Surface Nodes (1615) 
Omit this card if (N1) is zero 


(Same format as Card V.D.2, page A-17) 


3. Description of Two-Dimensional Fire Surface Segments (1515) 
Omit this card if (N2) is zero | 


(Same format as Card V.D.3, page A-18) 


4. Description of Three-Dimensional Fire Surface Areas (1215) 
Omit this card if (N3) is zero 


(Same format as Card V.D.4, page A-19) 
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APPENDIX B 


SAMPLE PROBLEMS 


SAMPLE PROBLEM 1 - COLUMN CROSS-SECTION WITH UNIFORM FIRE EXPOSURE 


The first sample problem is a two-dimensional thermal analysis of 

a square column (Fig. B.1) from the basement level of a typical reinforced 
concrete frame structure. It is necessary only to consider a quadrant of 

the column in the thermal analysis because of its cross-sectional symmetry — 
and the uniformity of the intended fire exposure. The column is thus 
idealized by the finite element grid in Fig. B.2, where planes of symmetry 
are modeled as insulated (Q = 0) surfaces. The thermal properties used in 
both sample problems are those given by Bizri [3]. The choice of the grid 
was based on the results of previous studies. A fine grid is employed in 

the vicinity of the fire boundary since a steep temperature gradient is to be 
expected there. A coarser grid is used in the center of the column since the 
gradient there is expected to be lower. The steel bars have been idealized 
as rectangles based on an area equivalence (S = 0.890). The flexibility of 
steel placement is apparent from Fig. B.2, allowing convenient modeling of 
any cross-section regardless of steel arrangement. The column is analyzed 
for two time-temperature curves (pseudo-fires): 


1) A long duration moderate intensity fire (ASTM E-119), and 
2) A short duration high intensity fire (SDHI). 
These two pseudo-fire curves are shown in Figs. B.3 and B.4, respectively. 


The fire boundary condition is simulated with the nonlinear model 
using a concrete emissivity of 0.9 and a flame emissivity of 0.3. Input data 
for this problem is given in Table B.! (for the first few time steps), and 
typical output is given in Table B.2. Figs. B.3 and B.4 are graphs showing 
the results of the analysis as the variation of temperature with time for 
certain elements, the exterior corner element (78) and the interior corner 
element (1), two steel elements (60 and 8), and a side element (10). The 
ASTM fire was also considered using a flame emissivity of 0.9 (Fig. B.5). 
The importance of flame emissivity can be seen by comparing Figs. B.3 and 
B.5. The central processing time required for each case is 49 seconds using 
the University of California CDC 6400 computer. 
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Bat # 10 REINFORCING BARS 


1 1/2" CONCRETE. COVER 


b> see 20'SQ. a eee! 


FIGURE B.1 COLUMN CROSS-SECTION 


- : 


vn 


fn 


FIGURE B.2 FINITE ELEMENT MESH FOR COLUMN QUADRANT 
(TWO-DIMENSIONAL QUADRILATERAL ELEMENTS) 


ay 


INSULATED SURFACE q=O 
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TEMP. DEGREES F 


2000.0 


1800.0 
FIRE CURVE 
1600.0 
SYM 
1400.0 
1200.0 
COLUMN SECTION 
20 X 20 
1000.0 78 
800.0 ; 
fe) 
600.0 
60 (STEEL) 
400.0 
8 (STEEL) 
200. O 
| 
O 
O 0.2 0.4 0.6 0.8 1.0 


TIME IN; HOURS 


FIGURE B.3 TEMPERATURE HISTORIES FOR SELECT ELEMENTS 
IN COLUMN UNIFORMLY EXPOSED TO ASTM FIRE 
(ce, = 0.3) . 
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TEMP DEGREES F 


2000.0 


1800.0 


1600.0 


SYM. 


1400.0 


1200.0 
COLUMN SECTION 


20 X 20 


1000.0 
800.0 


600.0 


FIRE CURVE 
78 

So aeet) 
8 (STEEL) 


O 0.2 0.4 0.6 0.8 1.0 
TIME IN HOURS 
FIGURE B.4 TEMPERATURE HISTORIES FOR SELECT ELEMENTS 


IN COLUMN UNIFORMLY EXPOSED TO SDHI FIRE 
(e, = 0.3) 


SYM 


2000.0 
1800.0 
FIRE CURVE 
COLUMN SECTION 
1600.0 20 X 20 
78 
1400.0 
1200.0 
nT 10 
(ep) 
uJ 
LJ 
a2 1000.0 
(©) 
LJ 
Q 
a: 
= 
w 800.0 
fe 
| 60 (STEEL) 
600.0 
8 (STEEL) 
400.0 
200.0 
fe) 
O O72 0.4 0.6 0.8 1.0 


TIME IN HOURS 


FIGURE B.5 TEMPERATURE HISTORIES FOR SELECT ELEMENTS 
IN COLUMN UNIFORMLY EXPOSED TO ASTM FIRE 


(e, = 0.9) 
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O6« 

° 333333 
2583333 
0614154 
0666667 
e 708333 
«750000 
2833333 
°614154 
°666667 
2 708333 
0. 
333333 
«833333 
Os 
2333333 
833333 
L106 

¢ 333333 
0833333 
06 
0333333 
2833333 
O« 
333333 
«500090 
0520834 
0583333 
© 583333 
°666667 
° 666667 
0708333 
°750000 
¢ 833333 
Oe 

2 333333 
°500000 
0520834 
° 583333 
°666667 


e 708333. 


e 750000 
08 33333 

Oo 
0333333 
«500000 
520834 
0533333 
e 583333 
e666667 
«666667 
e 708333 
e 750000 


TABLE B.1 


Oe 

Oe 

Oe 

Oe 

O5oe 

Oe 

Oo 

Oe 
© 047086 
©047086 
e047086 
e 166667 
e1 66667 
e166667 
2 333333 
0333333 
e 333333 
© 416667 
© 416667 
°©416667 
e500000 
e590000 
«500000 
e 583333 
583333 
©583333 
614154 
° 583333 
2614154 
2583333 
0614154 
©614154 
e5383333 
e583333 
«666667 
©666667 
e 666667 
666667 
«666667 
e666667 
°666667 
e 666667 
666667 
e 750000 
e 750000 
e 750000 
e 708333 
e 750000 
e 708333 
e 750000 
708333 
e 708333 
e 750000 


*** INTERIOR BASEMENT COLUMN — BLOG STUDY 
NODES,96,0 


ASTM FIRE *** 


INPUT FOR SAMPLE PROBLEM ONE 


B-/7 


80 


87 e 833333 e 750000 
88 Oo ¢ 833333 
90 e 333333 e 833333 
96 e833333 e 833333 
ELEMENTS, 0,76,0 
1 1 2 
6 


10 
12 
13 
15 
24 
33 
42 
46 
47 
48 
49 
51 
55 
S7 
59| . 
61 
62 
56 
58 
60 
69 
70 
71 
64 
80 
B82 
84 
72 
75S 
79 
B1 
83 
86 
MATERIALS,2 
4 


= ee et pe et ot ee pe te ee Oe ee A) me Oe 


a ee oe es oe oe om Of) ND 


0.0 0-506 


02172 
FIRE ,0,16,0,1 
NONLINEAR 
1. 7E-9 
e27 
SURF ACE ,0,16,0 
fe) 
@ 


EXOTHERMIC 0 90,0 ,0 
CONVERGENCE 


347-600 
627-200 
906.800 
1060-000 
1150-000 
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He ae a aC ae eR a ke Aa a ee a fk a i a ak oe i ae ac a fe ea a i a IK ke a DD GH HK HH 


FFFFF =~ RRRRR CEEEE @asSSSsS TING ~ 23532 
F I R Se = Ss Tt | 
. I R eae S T K 

F I f RR” GE SS) tT = 

AFF T RRRRR EEE SSSSS ===: T 2363 
F I RR = = T S 
F I R R E Ss T 3 
5 I R R E =) 7 es | 
F I rR Roe Ge ee pes a5 5 q sc 232 


A ~HERMAL ANALYZER FCR THREE-DIMENSTICAAL SYSTEMS, 
WITH TEMFERATURE-DEPENDENT THERMAL PROPERTIES, 
SUBJECTED TO A FIRE ENVIRONMENT 


BOI GIO IOI i i kok aa a ak dokicg i gai akg a akc ak ab a ab ak ab a ab ak ake ac ak ako ake ae ate ae ae age ae a ae 


- - - TITLE CF RUN - - - 


*keeX INTERIOR EASEMENT COLUMN - ELCCG STUCY - ASTM FIRE ¥%% 


Oh ae Re ae I ae ee ae ae i ae he ee Be a eee ae he he he ah ae ie af ae she ae ae ae sik fe he ae eK fe ah he he ic he ake ake oR oe eK a ake ae ote ok 


TABLE B.2 OUTPUT FOR SAMPLE PROBLEM ONE 
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TS cCTTCOLCOCCT ES CETTCLCLCOSCCLCCSOSCTC SCC SE LOCC CCST SS St ts te 
FIRES-T3 - FIRE RESPONSE GF STRUCTURES - TRERMAL 
**eX [INTERIOR BASEMENT COLUMN —- BLOG STLOY - ASTM FIFE *¥% 
GEOMETRIC DESCRIPTION OCF SYSTEM TC BE ANALYZEC 


PT eT TCT TS TIC SCCCCTC CSCS OCT SLOSS CST CSC SLO SL SSS ES SS eT eS Se tee te 


e ce e e THERE ARE 96 NOCAL PCIATS « @« e e« 
NODAL CCCROINATES ECUNCARY 
POINT x Y Zz CCNOTTICN 
1 Oe Oo —-Ce FLCW 
2 ©1667 Oe Oe FLOW 
3 e 2333 Oe -Oe FLCW 
4 e41€7 Oe Ce FLCW 
5 ©5000 Oe Oe FLOW 
6 eS833 Oe —-O6 FLCW 
7 06142 Oe —Ce FLOW 
8 ©6667 Oo —-O6 FLOW 
9 7083 Oe -Ce FLCW 
10 e 7500 Oe —Oe6c FLOW 
11 eb353 Oe -Oe FLCW 
12 ©6142 20471 —Ce FLOW 
13 2° 6667 20471 -O6 FLOW 
14 «7083 eC47i = Cie FLCW 
15 Oe ©1667 —-Oec FLOW 
16 ©1667 ©1667 Ce FLUCW 
17 e 3333 ©1667 —-Ce FLOW 
18 24167 21667 Oe FLOW 
19 «5000 e 16E€7 Ce FLCW 
20 ©5833 ©1667 Oe FLOW 
21 6667 21667 Oe FLCW 
ee «7500 ©1667 Ce FLOW 
2s e 8333 01667 -O6 FLOW 
24 Oe Pare Boe =—Ce FLC} 
Vode) e 1667 03333 Oe FLOW 
26 Pipe Bs Fe Pe Be | —O-e FLCW 
27 04167 e 33933 Oe FLOW 
28 e5000 e 3333 Oe FLOW 
29 25833 APNE Ce FLCW 
30 26667 03333 O-6 FLOW 
31 e 7500 03333 Oe FLCW 
32 e 8333 e 3333 -0O-6. FLOW 
a Oe 04167 —-Oe FLOW 
34 ©1667 e41€7 Ce FLCW 
Be flo eoass 04167 -Ce FLOW 
36 04167 24167 Oe FLCW 
Shs 25000 04167 Ce FLCW 
38 05833 04167 Oe FLOW 


39 
40 
41 
42 
43 
44 
4s 
46 
a7 
48 
49 
S0 
51 
52 


So) 


54 
55 
56 
57 
58 
59 

60 
61 

62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

72 
73 
74 
75 
76 
7? 
78 
79 
80 
B81 

82 
33 
B84 
8s 
86 
87 
88 
89 
90 
91 
92 
93 
94 


26667 
e 7500 
08333 
Oe 
© LE€E7 
e 3333 
24167 
«5000 
05833 
©6667 
«7500 
e 8333 
Oe 
©1667 
23333 
04167 
«5000 
©5208 
©5833 
©5832 
©6667 
°6667 
©7083 
e 7500 
e8333 
Oe 
©1667 
emis oS 
04167 
e 5000 
©5208 
_ «5833 
06667 
©7083 
e 7500 
e 8333 
Oo 
el €E7 
0 3333 
©4167 
25000 
©5208 
ene33 
©5833 
© 6€E67 
. e6667 
e 70683 
e75CC 
©8333 
O-« 
©1€67 
eao0 
04167 
©5000 
©5833 
©6667 


FLOW 
FLOW 
FLOW . 
FLOW 
FLCW 
FLOW 
FLCW 
FLCW 
FLOW 
FLCW 
FLOW 
FLCW 
FLCW 
FLOW 
FLCW 
FLOW 
FLOW 
FLCW 
FLOW 
FLCW 
FLOW 
FLOW 
FLCW 
FLOW 
FLOW 
FLCW 
FLOW 
FLCW 
FLOW 
FLCW 
FLCW 
FLOW 
FLCW 
FLOW 
FLCW. 
FLCw 
FLOW 
FLCW 
FLOW 
FLCW 
FLCY 
FLOW 
FLCW 
FLOW 
FLCW 
FLCW 
FLOW 
FLCW 
FLOW 
FLCW 
FLCK 
FLOW 
FLCW 
FLOW 
FLOW 
FLC® 


95 
96 


EL MT 


ODNANFWN 


a4 


ODNOAYN FWD = 


THE RE 


q 


OOMONDAMWN PF WN 


e 7500 
03333 


ARE 


ce 


30 


78 


SS) 


e 82333 
e2333 


Oe 


2-D ELEMENTS « c« eo 


MAT 


N = = we ee 


THICKNESS 


1200000 
1ecoccc 
1-CcC0000 
1200900 
12-0C00C 
1200000 
1-COO0CC 
1200000 
1-C0000 
1eccoocd 
1200000 
1eccoce 
1-e00000 
12C0009 
1-CCOcc 
1200000 
1-CCOCC 
1-00000 
1eccodo 
1-co00o00d 
1200000 
1-CCOCC 
1200000 
1 200000 
120000C 
1200000 
1e-ccocc 
1-Cccodd 
1-C0000 
1-Ccocc 
1200000 
1eCCOOC 
1-00000 
1-eCo00c0 
1-ccocc 
1.200000 
1-Ccooc 
1200000 
1209000 
1e-Ccocc 
1200000 
1-00000 
1-cococc 
1-Cc0000 
1eccaocc 
1200000 


FLCW 
FLCW 


63 


cae | 
S4 
ai 
So 
57 
59 
é1 
62 
56 
$8 
60 
69 
70 
71 
€4 
65 
66 
67 
68 
&0 
82 
B84 
ee 
73 
7s 
76 
77 
78 
79 
81 
83 
86 


54 
55 
a6 
S7 
s9 
62 
62 
63 
58 
60 
61 
7C 
71 
te 
65 
66 
67 
68 
69 
82 
84 
85 
73 
74 
76 
77 
78 
79 
81 
&3 
8&6 
87 


67 
68 
69 
58 
60 
61 
73 
74 
70 
71 
72 
B2 
B84 
85 
76 
77 
78 
79 
80 
81 
83 
86 


e6- 


87 
89 
90 
91 
92 
93 
94 
95 
96 


€6 
67 
68 
56 
s& 
€0 
72 
Ds 
69 
70 
71 
80 
82 
84 
vfs: 
76 
77 
78 
79 
19 
#1 
83 
es 
86 
88 
eg 
90 
e | 
92 
S3 
G4 
95 


po pe Pb pe et pee et et me es tet A TT AD WD Ad me me et et pee pe oe 


MAXIMUM BANDWIDTH IS 


1é 


1eCo0o0cdod 
1200000 
1eCCOCcc 
1-CO000C 
1-00000 
1-coocc 
1200000 
ie CCoOcod 
1eCCOCC 
1eC00co 
1-CCcocc 
1200000 
1200000 
1eCcCcoced 
1-000CO0 
1-ccocc 
1200000 
1200000 
1-CCO00 
1200000 
1eCCcocc 
1200000 
1-Co0o00c 
1-000CC 
1.200000 
1e-ccocc 
1200000 
12-C0000 
1-cCoc0ood 
1200000 
1eccoce 
1.-coccc 


PPPS SSL SF SS SPST LES SS ET STS PS TS TFS TS TTS RSE RES ERE RSS ES ES SEE EE SE. 
FIRES-TS - FIRE RESPONSE OF STRUCTURES - THERMAL 
*kx* INTERIOR BASEMENT COLUMN - BLDG STUDY -— ASTM FIRE **% 
THERMAL PROPERTIES OF SYSTEM TO BE ANALYZEO 
THERE ARE 2 DIFFERENT MATERIALS 


Bee WE Re Me ae Re he he ae ae ae eke ae a ake a ake ae ake ak a ok oe Ae he Ke ak Ok HH HB He HK Oh ae ae ae ae oe ee ah oh oh He 3k 


e 2© e e MATERTAL NUMEER 1 ee 8 e 


e e e CCNOUCTIVITY e« « e 


NODE TEMPERATURE VALUE SLOPE 
1 Oe 1.010 
Oe 
2 390-C 1-010 
—-e4CCE-02 
& 1650-20 e506 
Ce 
4 3000 eD e506 


e e e SPECIFIC HEAT ¢« « eo 


MATERIAL PARAMETER CF CONSTANT VALUE ec7e 


e e e DENSITY « © e 


MATERIAL PARAMETER CF CONSTANT VALUE 1€C.0CC 


e ec e©e e MATERTAL NUMBER a ee ce 


e e e CCNCUCTIVITY «© « e 


NODE TEMPERATURE VALUE SLOPE 
1 Oe 3C.000 
—~eSiSE-O 2 
2 110020 1$-900 
Oe 
3 3¢C00-0 19.900 
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e e e SPECIFIC HEAT ¢« « e 


NODE TEMPERA TURE VALLE SLCFE 

1 Oe 0107 

© 4S3E-04 
is 750-0 0144 

e800E-04 
3 1100.0 0172 

Oe 

4a 3000.0 0172 


e @« e DENSITY « © e 


MATERTAL PARAMETER OF CONSTANT VALUE 48C.CCC 


SRI RIGISIOI IO IO II RO IR IOI RII IR I ROR ROR RRR ak ake akc a a aie ae i ak a ak 
FIRES-T3 - FIRE RESFONSE OF STRLUCTLRES -— TRERMAL 

*x* INTERIOR BASEMENT COLUMN - ®LOG STUCY - ASTM FIRE ¥%% 
NON-LINEAR FIRE SCUNCDARY CCNDOITTION 


ee we Me eM ae ae Me He Me Me ME a HM KARE SKK HKHK KAKA HH HH HH HH KE HH KKH HK KH HK KK 
Q=A*( TF-TS P¥EN4+SB*XV IC ABKEFX(TFEF¢TSHIFT DF 4—-ES*( TSA TSRIF T) 4G) 


WHE RE 
TF —- PSUEDO FIRE TEMPERATLRE 
TS - SURFACE TEMPERATURE 


SB - STEFAN BOLZTMANN CONSTANT = «1 7CCE-08 
TSHIFT - SHIFT TO ABSOLUTE TEMPERATURE SCALE = 460.0 
AND 
MAT CONVECT CONVECT VIEW ABSCFET FIRE SURFACE 
NUM FACTOR POWER FACTOR EMISSIV EWISSIV 
CA) (N) (v) (AE) (EF) CES) 
1 e270 12250 1-000 e900 e2CC e9CC 


e e e THERE ARE 16 2-D SURFACE ELEMENTS EXPCSED TC FIRE « eo 


DESCRIPTION OF SURFACE OIRECTLY EXPOSEO TC FIRE 


Ff IREBC NCDE NODE MAT FIRE AREA 


SURF ACE I J TYFE TYPE 
1 11 ZS 1 1 0©1€?7 
2 ao 32 1 1 0167 
3 SF 41 1 1 rh id 
4 41 50 1 1 0083 
3) SO 62 1 | 2083 
6 63 74 1 1 eves 
v4 74 87 1 1 0083 
8 87 9€ | 1 e 0&2 
9 96 95 1 1 e083 
10 oS 94 1 1 e083 
11 94 25 1 1 e0ES 
12 $3 92 1 1 e083 
13 92 91 1 1 e0E2 
14 91 90 1 1 0083 
Ls 90 8S 1 1 0167 
16 89 B8 1 1 elé€? 


SOE OG GiGi t qoloi ici taigiatuiai sotekaiaciok dot ated ake ak ica ak teak ak a ak ake a ak ea a 
FIRES-T3 - FIRE RESPONSE OF STRLCTLRES - THERMAL 

xe INTERIOR BASEMENT CCLUMN - BLOG STUDY - ASTM FIRE #*# 
INFORMATION RELEVART TO THEE ANALYSIS PROCEDURE 


He we aR he Re ae He oe ae ae a ae ae Re ae ae Re oe ae fe a eae ea eae eae a a Re oh eh ah he ae oe a ae ae fe ae ae OK a ak KK 


e e e e@ CCANVERCGENCE CRITERIA ® e a ® 


CCNVERGENCE CRITERIA FOR BCUNDARY CONCITIONS 


PERMISSTSBLE ERRCR = eOCE0C 


MAXIMUM NUMBER CF ITERATICAS = 15 BETA = -2<500 


e e e e STORAGE REGUIREMENT FCR BLANK COMMON 


SIZE BLANK CCMMCN 2390 (DECIMAL ) 


0006476 (CCTAL) 
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Be ee ae Re ee fe ae ee ak eA a RK eH HG ee eK Ke 
FIRES-T3 - FIRE RESPONSE OF STRUCTURES —- THERMAL 
*** INTERIOR BASEMENT COLUMN - BLDG STLDY —- ASTM FIRE *** 


INITIAL SEGUENCE NUMBER IS O AND INITIAL TIME IS Oe 


PS PPPS SSS ELE SLES LEL EE SES SETS ET SE SELES SER ER TER RSS TERS SE ES ES SS 


N TEMP. N TEMP. N TEMF. N TEMP. 
1 68.00 2 68.00 2 E&2CC 4 68.2900 
Ls 68.00 6 68-00 7 68-00 é €8.00 
9 68-00 10 €8eCO 11 €&.00 12 68.00 
13 68-00 14 68.00 io E€E29C re E€E.CO 
shes 68-00 18 6€8.C0 19 €8.00 20 68 2.00 
al 68.00 22 62.00 ao €&@-CC 24 68.09 
dea 68-00 26 68-00 ag! 6 68.00 <8 €2@.00 
29 68.C9 30 628.C0 31 E€8.CC Sys 68.00 
33 68.00 34 68-00 25 €&.20C Se 6E.00 
a4 68-200 38 68-00 39 €8.00 40 68 -00 
41 68-00 42 68.200 43 €@.Cc 44 68.09 
45 €38-90 46 68-900 47 68.00 48 6&-00 
4S 68-00 50 68.CO0 S1 E8200 sy 68.00 
53 68.00 54 68.00 =) €&.CO ee 6€.09 
57 68.00 58 68.00 59 68.00 60 68.00 
61 68-00 €2 68.00 cz €e.co €4 68209 
65 68290 66 68.00 67 68-00 €@ 68-00 
6S 68-00 7C 68.00 71 68.00 ve 68-00 
73 68-00 74 68.00 75 €@.00 VE €&.00 
"arf 68.2006 78 68.00 79 68-00 80 68.09 
81 68.00 82 68.00 83 €&.-C0 e4 68.90 
85 68200 86 68.200 87 68.00 88 68-00 
89 68.200 90 68.00 91 68-00 te he 68-00 
93 68.00 94 68.00 95 €&.C0 SE 62.00 


RRO RSI I I ROR Rk a a aR a Rak a ab ake a ake ae ae akc ak a ae a aR ake ak a akc ake ap aa aR aR a aba ap oe akc ah ak ah oa ot Bok ah ok ok hee 
FIRES-T3 r FIRE RESPONSE OF STRUCTURES - THERMAL 
*%k*k INTERIOR BASEMENT COLUMN - BLOG STLDY — ASTM FIRE *#* 
TIME STEP NUMBER 1 - TIME 2025 - TIME STEF (2025 
BGO I OO OI OR I RR iO a kok ok ak i kok i tatak kok kok ak sk teak ak a i ak ok ake ak 
NUMBER CF NON-ZERC FLOW CR TEMPERATURE CONDITIONS <-O 


FIRE BOUNDARY CONCITION 


FYRE(1) = 3472600 
FIRE(2) = -Oe« 
FIRE(3) = oh OR 


FIRE(4) = —Ce 


------~------ NODAL POINT TEMPERATURES --------------- 


N TEMP. N TEMP. N TEMP. N TEMP. 
1 68-00 2 68-00 3 68-00 4 68.00 
5 68200 € 682C1 7 €28&.C3 ge 68203 
9 68204 10 68 047 11 72074 12 €E202 
12 68-C3 14 68.05 15 68.00 16 68.00 
17 68.200 1e@ 68.00 19 €2.cc zc 68.00 
21 68.03 22 68-37 23 72073 24 68.00 
25 68.00 26 68.200 27 €E.CC 2e 68.00 
29 68.00 30 68203 31 EG o3E z<2 72073 
33 68.2CO0 34 68.00 35 68.200 36 68.00 
37 68.00 38 6&.200 29 €&.C2 4C €8. 36 
41 72073 42 68-00 43 68-00 44 68209 
45 68200 46 68.00 47 68.CO0 4e8 68.03 
49 68236 50 72073 51 €&.CO ez 6E.C0 
52 682CO 54 68.00 55 68.01 S6 68 204 
57 68-01 58 68.04 SS €8&.C2 EC 68.06 
61 68208 62 68237 63 72.73 64 68.02 
65 68203 6E 68.03 67 68.03 68 684202 
69 68205 70 68.05 71 €&.C7 72 €EC7 
73 68.47 74 72.76 75 €8.36 76 68 236 
77 68.36 7é 682236 7S €E.37 EC 68.07 
81 68243 82 68-06 83 68 045 a4 68207 
85 68.10 BE 68.73 ° °#«®%87 72205 88 T2e73 
89 72e73 90 72073 91 7VZe72 Sz 72e72 
93 72274 94 72076 8 8 95 73.05 96 77.3? 
-------------- TEMPERATURE OF 2-D ELEWENTS ------------- 

TEMP. N TEMP, N TEMP. N TENE. 

1 68.00 2 68.00 3 €8.CO 4 68200 
68.00 € 68.Cl 7 68.03 a 68 04 


O SYSTEM ITERATICNS wERE PEFFORMED 
Ce ITERATIONS WERE PERFORMED 


3 Re 


68e23 
68.00 
68-00 
68-00 
68.00 
68-200 
68-00 
68.200 
68.01 
68-01 
68203 
68e25 
68-07 
€8.e19 
68.213 
68434 
70254 
7075 


1c 
14 
18 
ae 
26 
30 
34 
38 
42 
46 
50 
54 
58 
62 
6E 
79 
74 
78 


70-58 
68-00 
68-201 
68.00 
628.01 
68.00 
68.C1 
68-00 
68.02 
628.01 
68-03 
7C0258 
68.06 
68-19 
68.23 
7T0e75 
7CeS5 
73-04 


PUNCHING ELEMENT DATA of 


B-2] 


11 
15 
19 
23 
an4) 
31 
35 
39 
43 
47 
Si 
22 
59 
63 
67, 
71 
75 


68.02 
68.00 
€@22C 
68.00 
E&e1¢ 
68.00 
€8219 
€&.0C 
68.20 
€&.Ci1 
68204 
68.05 
Ee CE 
68.19 
65.25 
70254 
70057 


le 
1é 


c 
c 


24 
2e8 
me 
36 
4C 
44 
4E 
a 
56 
EC 
64 
Ee 
72 
76 


6@.12 
68.00 
70-S5 
68.00 
70254 
6@.00 
70 054 
6€.200 
70 e55 
68.01 
6@e13 
68.06 
E€E.CEe 
68.20 
68-34 
70254 
70-60 


TTT T TTT CTT TTT ttt TTT TTT TST TST SSC SOC LLC LSS STS SCS C SSCL IS PSE TS ee 
FIRES-T3 = FRE RESPONSE OF STRUCTURES - TRKERMAL 
*xee INTERIOR BASEMENT COLUMN - BLOG STUCY - ASTM FIRE ¥¥% 
TIME STEP NUMBER 2 - TIME oCEC -— TIME STEF e025 
a oR aR ke aK a a oa ae a ke ak aR a Re aR a aka RC a a aR aK ae ke ake a ca ak ak ak a a a a oe ae fe a ke a a ae ae ae a 
NUMBER OF NON-ZERC FLOW CR TEMPERATURE CCANCITICNS -0 


FIRE BOUNCARY CONDITION 


FIRE(1) = E€2722C0C 
FIRE(2) = —-Oe 
FYIRE(3) = —-Ce 
FIRE(4) = —-O6 


N TEMP. N TEMPE. N TEMP. N TEMP. 
1 68.00 2 68.00 3 68-00 4 68.00 
5 68.200 € 68204 7 €l.15 — € 68.20 
S 68224 10 70027 11 87 e240 1z 66.14 
13 68219 14 68229 is €E.CC 1€ 684200 
17 68 200 18 68200 19 E&.CC 20 68202 
21 68-16 22 69.81 23 87037 24 68-200 
25 68.00 2€ 62.00 27 €&.00 Zé 68.00 
2s 68.Cl 30 68216 31 69-78 22 87225 
23 68.90 34 68.00 35 €&.CC 3€ 68200 
37 68.200 38 68-01 39 EL21€ 4c 69.78 
41 87.35 42 68.00 43 68.00 44 68.00 
45 63200 4& 6R.00 47 €2e02 48 E0216 
4s 69-78 5c 87235 51 68-201 SZ 68.01 
523 68.C1 54 68.01 ss €E.CE SE 68223 
57 68.208 58 68226 s9 EE e1E €C 68234 
61 68242 62 65.85 63 87-38 64 68 016 
65 68216 bE 62216 67 EG1€E €€é 6€e12 
6S 68.28 70 6830 71 6837 72 62242 
72 70223 74 B7eS1 75 ESe7E 7E 69.78 
77 69-78 78 69.78 79 66.823 EC €E236 
81 7Cell 82 68.33 83 2822 84 68 041 
85 62.55 BE 71061 a? £E.S2 GE 87235 
8S 87.35 90 87.35 91 87.35 Gz 27.37 
93 87240 94 87.52 95 £&.G1 cE 105.94 
-------------- TEMPERATURE OF 2-D ELEMENTS ------------- 

TEMP. N TEMF. N TEMP. N TEMP. 

1 68.00 2 68.00 3 68.00 4 68.00 


5 68.02 6 68.209 - €F.17 & 68.23 


B-22 


69-15 
68-209 
€@e01 

68200 
68.01 

€82C0 
68.91 
€8-C1 
62.04 
68.09 
68.17 
69224 
68-39 
68.97 
68465 
69-71 
78256 
£9087 


1C 
14 
18 
Hedi 
26 
3C 
34 
38 
42 
46 
Sc 
54 
bo | 
62 
66 
7C 
74 
78 


78.71 
68.00 
68.09 
68.00 
68.09 
6é8@.C0 
€8@.0S 
68.01 
68.10 
68-09 
GEe,.5 
#G@.47S 
68232 
68.S7 
69-16 
75258 
78258 
88284 


11 
15 
19 
an 
aut 
31 
hs] 
39 
43 
47 
51 


ag 


~~ 


59 
es | 
67 
ra! 
Th] 


e e e PUNCHING FLEMENT DATA « oe 


O SYSTEM 


3 Be 


B-23 


ITERATIONS WERE PERFORMED 
Ce ITERATIONS WERE PERFORMED 


EBel2 
€&@.CcC 


68.92 


€é.cc 
€&.S?7 
€8.00 
€€.S7? 
€8.01 
€E.SS 
€2.9S 
68e21 
E€&ez7 
68-35 
€&.S7 
E€Ce2? 
72256 
722€8 


l2 


1é— 


20 
24 
za 
32 
2€ 
40 
44 
4€ 
S52 
c€ 
éC 
64 
é£ 
72 
7€ 


68 e61 
€E.00 
Tee Se 
628.200 
72 iE 
68.200 
7E2S7 
68.02 
78.59 
68.09 
68-69 
68-2322 
62244 
68.98 
E€S-70 
78256 
7.1 


i ROR RO sO aoa kako koi takai kok doa kok ake ak ake ak oi ak fe ak fe ae a a ak fe ake ake te ap ai ke acai ae a a ak 3c ac ae a i ak ste 


FIRES-T3 - FIRE RESPONSE OF STRLCTURES - TRERWMAL 


“xxx INTERIOR BASEMENT COLUMN - BLOG STUCY ASTM FIRE **%* 


TIME STEP NUMBER 3 - TIME e075 - TIME STEP 0025S 


we he ae ae 2 a ae ae ie a a ae ae a ak ae a ake ae ae ae a ke ak ake ake af ab ate abe ake oe a a oh a ae a ae a ake a a a ote oe a He oe ae ae SE he ae 3 2k 


NUMBER OF NON-ZERO FLOW CR TEMPERATURE CONCITICNAS -0 
FIRE BOUNDARY CONDITION 
FIRE(1) = S06 e800 
FYIRE(2) = —O6 
FIRE(3) = -O0-6 
FIRE(4) = -O6 
------------ NCDAL FOINT TEMPERATURES --------------- 
N TEMP. N TEMP. N TEMF. N TEE. 
1 68.00 2 68.00 3 €&.CO 4 6&. 00 
S 68.01 6 68.16 7 68 52 2 E8266 
9 68-79 10 74.58 11 117.237 12 68647 
13 68 63 14 68.95 15 E&.0C 1€ 6&.00 
17 68.00 18 68.00 1S 68-01 20 68 206 
21 68.53 22 73.37 23 117227 24 68.00 
25 68-00 26 68.00 27 €8200 28 68.01 
29 628.05 30 68.54 31 72227 32 117.21 
33 68-200 34 68.00 35 €&.CO 2€ 6€&.00 
37 68.01 38 68.05. 39 68.54 40 73.28 
41 117.21 42 68.01 42 €2.C1 44 68.01 
45 68.01 46 68202 a7 68.07 48 68.55 
49 73.28 SO 117.22 51 68.05 S52 68.205 
53 68.05 54 68.05 SS E&.1€ c€ EELTE 
S57 68.29 58 68.90 59 E8254 60 690213 
61 69.37 62 73-45 63 PrYrrosc €4 68254 
55 63.54 66 68454 67 68.54 é8 E2046 
6S 68.94 70 6S$.00 71 ES.24 72 69.37 
73 74.66 74 117-73 75 ea, 7€ 72.27 
77 T3627 78 73.28 79 73.39 80 69 19 
81 74615 82 €S.10 a3 74.52 £4 69235 
85 69675 86 78.60 87 121.75 ee 117.21 
39g 117.21 9C Ti2s2t S1 i722 S2 117.28 
93 117.36 94 PT 7 S77 95 12107 Sé 162.50 
~-------------+ TEMPERATURE OF 2-C ELEMENTS ------------- 
N TEMP. N TEMP. N TEMF. N TEMP. 
1 68.00 2 68.00 a €&.CC 4 68.01 
S 68206 6 68.30 7 68-57 @ €8&.76 


65 


0 SYSTEM ITERATIONS WERE PERFORMED 
Ce ITERATIONS kRERE PERFORMED 


3 Be 


71242 
68-C0 
68.03 
68-200 
68.03 
68.00 
68204 
68-03 
68214 
68.230 
68eS9 
71271 
69-28 
70.91 
7Ce00 
73209 
95225 
98.16 


10 
14 
ie 
ee 
26 
30 
34 
38 
42 
46 
so 
54 
3&8 
62 
66 
7c 
74 
Le 


whe yl elke 
68.00 
68.230 
68-00 
68-230 
68-00 
68-230 
68.03 
68236 
68-430 
68.254 
95.79 
€S-C6 
70291 
71246 
98.219 
95-29 
121-50 


ig! 


15 
19 
Pag 
27 
31 
ao 
39 
43 
47 


Phe | 


PUNCHING ELEMENT DATA eo 
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55 
S59 
Cz 
67 
71 
ree) 


€b242 
€8.00 
70.923 
€&.200 
70.91 
€@.CC 
70291 
€8-023 
7C GE 
68.30 
€Ee72 
68-90 
EGe17 
70-G1 
71278 
G$fe24 
95-55 


12 
16 
2c 
z4 
28 
Je 
sé 
40 
44 
48 
eid 
=e 
60 
€4 
68 
i2 
7E 


66287 
68e0C 
95 e28 
€6.200 
95 e24 
628.01 
95625 
S232 
68 e31 
70212 
ESe07 
69 242 
70292 
73-05 
95224 
95.95 
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FIRES-T3 - FIRE RESPONSE OF STRLUCTLRES —- THERMAL 


*x**x INTERIOR BASEMENT COLUMN - BLOG STUCY - ASTN FIFE *** 


TIME STEP NUMBER 4 - TIME e100 = TIME STEP 0925 


MK Se He te ae ae ae ae ae ee ic ie a ae afc aC a x ae ee a a a aie he ae ake a a ak ie ae ae a eR a a ae he be ae oe shee ee oe oe Oh ah Oe a ak ok 


NUMBER GF NCN-ZERC FLGW CR TEMPERATURE CONDITIONS -0 
FIRE BOUNDARY CONCITION 
FIRE(1) = 1060.000 
FIRE(2) = —-Ce 
FIRE(3) = —O 6 
FIRE(4) = -O. 
------------+ NODAL POINT TEMPERATURES --------------- 
N TEMP. N TEMP. N TEMP. N TEME. 
1 68200 2 68.00 3 68 200 4 68.00 
5 68.03 € 68243 7 E9229 8 69.59 
9 69-86 10 81.66 11 156.28 12 66.18 
13 65254 14 70221 15 68-200 16 68.00 
17 68200 18 68.00 1S €&.Ce 2c 628.17 
21 69229 22 79241 23 156.16 24 6&.00 
25 68200 26 68.00 ae 68200 28 68202 
29 68215 30 65.32 31 7$.22 32 15€.C2 
33 68. CO 34 68.00 35 68.4200 7€ 682.00 
37 68202 3e 68.15 39 €S.32 4c 7S 224 
41 156 202 42 68202 43 €&.02 44 68.02 
45 68203 4€ 68.06 47 €8.1S 48 69.35 
49 79.26 50 156.05 51 €&.15 ez 6F215 
53 68615 54 68215 55 68-48 SE 69.95 
S7 68.78 58 70.22 59 €S.38 EC 7Qe%a" 
61 Rije2s 62 79.56 63 15€.27 64 69232 
65 69.232 66 65232 67 69233 68 69.21 
69 70228 70 70243 71 7CeGE 72 712s 
73 82-2CO 74 157.224 75 79 2223 7€ 79.22 
ae 79223 78 79.224 79 7624C ec 70.81 
81 80-89 82 7064 e3 @1.71 €4 74.28 
85 72203 BE 90.37 87 165246 88 156 02 
89 156202 90 156.02 91 1S€.C32 Sz 15€.16 
92 156.36 94 157.32 95 (165244 SE 238.0S 
-------------- TEMPERATURE OF 2-C ELEMENTS ------------- 
N TEMP. N TEMP. N TEMF. N TEMP. 
1 68.00 2 68.200 3 €&.CO 4 68.02 
Ss 68.16 6 68.76 7 E9240 e@ 6980 
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O SYSTEM ITERATIONS WERE PERFORMED 
Ce ITERATIONS WERE PERFORMED 


3 Be 


75029 
68-00 
68.09 
68-00 
68.08 
68.01 
68.10 
68-08 
68.38 
68.73 
69248 
76201 
712-04 
74228 
72243 
78.91 
117.263 
123.271 


10 
14 
ve 
ae 
2€ 
30 
34 
eH. 
42 
4€ 
50 
54 
sé 
62 
G€ 
70 
74 
78 


118240 
€@.C00 
62.73 
68-00 
68e74 
68-01 
68.75 
68@.C8 


68-92 — 


68.73 
69.36 


(118.77 


70254 
74.28 
75244 
123.77 
117-71 
164.84 


PUNCHING ELEMENT DATA oe 
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11 
15 
19 
2s 
if 
31 
3s 
339 
43 
47 
51 
55 
59 
63 
€é7 


r/) te 


75 


2 


€9-04 
68.00 
74221 
68.00 
74228 
€8.01 
74229 
€&.cs 
74239 
€&.74 
ES e7E 
70022 
7CehC 
74028 
7Ee11 
1172€<é 
118-220 


12 
16 
zc 
24 
26 
jé 
36é 
4C 
44 
4@ 
ae 
S6 
EC 
€4 
€e 
Vz 


76 


Teeoll 
68.01 
117-70 
62.01 
117.263 
6&.02 
1172.64 
60.18 
117.78 
628.79 
7ee73 
70.58 
71235 
74230 
78283 
1) i eT 
119207 


ee ate ae oe ake a ae a ae oe a 2 te ae ak ae ae a ae ake ake ak a ak fc a ae ae eae ae ae ae ake ae aie ake i ae ae ie ok a a a ake oe ke a a ke ae tk oe aK ok a 
FIRES -ts3 - FIRE RESFONSE GF STRUCTURES - TRERMAL 
kkk [INTERTOR BASEMENT COLUMN - BLDG STUDY — ASTM FIRE **% 
TIME STEP NUMBER 5S —- THME e125 - TIME STEP e025 
AKAAEEL EERE EELS EAE SERRE LAR ELE EERE LAR AY AAR EEA 
NUMBER OF NON-ZERC FLCWw CR TEMPERATURE CCNOITIONS -0 


FIRE BOUNDARY CCONCITICN 


FIRE(1) = 115C.000 
FIRE(2) = —-Oe6 
FIRE(3) = —Oe 
FIRE(4) = =0 < 


------------ NODAL FOINT TEMPERATURES --------------- 


N TEMP. N TEMP. N TEMP. N TEMP. 

1 €8.00 2 68.C0 3 68.00 4 68.01 

] 68.08 € 68.94 7 7CeSS e 71013 

9 7125S 10 91ie2l 11 199.03 lz 70028 
13 71204 14 7201S 15 €@.00 1€ 68.00 
17 68-00 18 68.01 19 €l.CE ec €E237 
21 7COe5E 22 87-2827 23 198.64 24 68-200 
25 68.00 ee 68.C0 2? €€.01 2€ 68.94 
29 €8. 32 30 70264 31 87.260 22 198-41 
33 68-C0 34 68.00 oo 628.01 3€ 68-201 
37 68.05 38 68.34 39 7CeE2 4C 272EC 
41 198.41 42 68.04 43 €8.04 44 68.04 
45 68.07 4€ 62.214 47 €02423 4@ 70071 
49 87-eES So 198-46 om | 68 e22 2 68.32 
53 68.23 54 68.35 35 €Se06 sé 71293 
S@ 69.69 58 72043 sg #C eS EC Vaese 
61 7T4e21 62 88.10 63 196.87 64 70 062 
65 70262 66 7Ce2E3 E7 TCs Ce €€ 70e56 
69 72253 70 72280 71 73075 rar T4e23 
73 92-C9 74 200-71 «5 87.26C 76 37260 
77 87-260 78 87.61 79 E7274 oh & 73042 
81 90-11 82 73216 83 91.264 84 7416 
85 75259 8E 10€-€1 87 21424C EE 1Sf.40 
89 193-40 79 198.40 91 198.43 Ge 198.465 
93 199.202 G4 2C0C.e&4 95 214.37 9€ 317237 

ae eel ae ee TEMPERATURE OF 2-D ELEMEN I Se ==~=—-=——=-~—— 

N TEMP. N TEMP. N TEMP. N TEMP. 

1 68.-Co eS 68200 3 68.200 4 68.04 

5 68.3€ € E€S-57 7 7C.78 é 71248 


O SYSTEM ITERATICNS WERE PERFFORMEC 
Ce ITERATIONS WERE PERFORMED 


3 Be 


8C.71 
68.00 
68e 20 
68.00 
68219 
68.202 
68224 
68.218 
68.83 
69247 
71202 
82216 
73-88 
7TGell 
76206 
87213 
143.901 
153236 


1c 
14 
18 
22 
26 
30 
34 
38 
42 
46 
50 
54 
58 
62 
66 
70 
74 
78 


144.19 
68.00 
69248 
68.00 
69-48 
68.02 
66.53 
68.18 
69252 
69248 
70278 

144.94 
72-98 
79611 
Biell 

153-45 

143.11 

213.19 


PUNCHING ELEMENT DATA eo 


B-29 


11 
15 
19 
23 
27 
31 
fi 
39 
43 
47 
51 
s5 
59 
63 
67 
ra | 
ic 


7C20S 
e620 C 
79017 
68.01 
7G e12 
€8.203 
AOS Bs 
68.20 
79233 
E€Se4E 
71-58 
720242 
73246 
79212 
G@2ec7 
143.200 
142-&& 


Le 
1€ 
2c 
24 
ee 
S2 
3é 
40 
44 
4E 
S2 
=6 
60 
€4 
é£ 
72 
w6 


75 242 
68.03 
142.212 
68.03 
142.C0 
68.07 
143.03 
68.41 
1434.27 
E€ESe EE 
76 063 
73298 
74243 
79214 
E7eCC 
143.200 
145240 


SAMPLE PROBLEM 2 - COLUMN WITH SPIRAL 


The second sample problem is a circular column with longitudinal and 
spiral reinforcing which is uniformly exposed to fire. The dimensions and 
configuration of the column are shown in Fig. B.6. The column is subjected 
to each of the two fire curves discussed in the previous sample problem, the 
ASTM E-119 long-duration, moderate intensity fire (Fig. B.3) and the SDHI 
short-duration, high intensity fire (Fig. B.4). The fire boundary is 
modeled nonlinearly as in the previous sample problem. Both material pro- 
perties and the boundary properties are given in the sample output in Table B.4. 


For each fire curve two analyses are made: 


1. A three-dimensional thermal analysis which is capable of modeling 
the effect spiral reinforcing has on heat flow into the column's 
interior. Due to symmetry only the wedge-shaped portion shown in 
Fig. B.6 need be discretized into elements. The mesh chosen is 
shown in Fig. B.7. Both the input data (Table B.3) and the output 
(Table B.4) is given for the first three time steps of the SDHI 
fire analysis. The temperature distribution within the column 
after one hour of fire exposure is shown in Fig. B.8. 


2. A two-dimensional thermal analysis which ignores the effect of 
the spiral steel on heat flow into the column's interior. A 
mesh of two-dimensional quadrilateral elements which is equivalent 
to the three-dimensional mesh is defined by the top surface of the 
wedge-shaped mesh in Fig. B.7. The temperature distribution within 
the column after one hour of fire exposure is shown in Fig. B.9.. 


The time-temperature history of the longitudinal reinforcing bars is shown 
in Fig. B.10 for each of the four analyses conducted. Note that the steel 
spiral does considerably affect heat conduction into the interior of the 
column. 


The SDHI fire analyses required 80 time steps for two hours duration. 
The three-dimensional analysis needed 902 seconds of central processing time 
(CDC 6400) and the two-dimensional analysis 62 seconds. For the ASTM fire, 
120 time steps were needed for a two hour analysis. The three-dimensional 
case consumed 1520 seconds of central processing time and the two-dimensional 
case 105 seconds. 
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FIGURE B.6 CROSS-SECTIONS OF CIRCULAR COLUMN 
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FIGURE B.10 TEMPERATURE-TIME HISTORY IN REINFORCING BARS 
(AT CENTER OF BAR AT LEVEL OF SPIRAL) 
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- 3-D ANALYSIS ** 


TABLE B.3 INPUT FOR SAMPLE PROBLEM TWO 
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40 


40 


147 
148 
149 
ist 
1s2 
153 
15s 
156 
157 
159 
160 
161 
163 
164 
165 
167 
168 
169 
171 
172 
173 
175 
176 
177 
179 
180 
181 
183 
184 
185 
187 
188 
189 
191 
192 
193 
195 
196 
197 
199 
200 
201 
203 
204 
205 
207 
208 
209 
ell 
212 
213 
215 
216 
217 
219 
220 


10 


10 


e 7054 
27054 
7083 
e 7083 
e 7083 
26996 
26996 
06996 
«7408 
07408 
7408 
©7469 
27469 
e 7469 
e 7500 
«7500 
e 7500 
©7408 
e 7408 
«7408 
e7819 
7819 
e7819 
e 7884 
7884 
7834 
7917 
e7917 
e7917 
«7819 
©7819 
7819 
28025 
e 3025 
8025 
038092 
e 8092 
8092 
©8125 
08125 
©3125 
e 8025 
©8025 
8025 
©8231 
8231 
e 8231 
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ee « OPECTRIC HEAT terte ¢ 


NCDE TEMPERATURE VALUE SLUCFE 
1 Oe e107 
e492E-04 
2 750 20 e144 
e8C00E-04 
%. 1109.0 e172 
Ce 
4 3C00e-90 el72 


®@ e s DENSITY ® @ e 


MATERTAL PARAMETER OF CONSTART VALLE 480-000 
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SUI TRE er Ce Ce he a CA le aed 
FIRES-T2 - FIRE RESPOKRSE OF STRUCTURES — THERMAL 

*#* CIRCULAR COLUMN WITH 172 INChR SPIRAL - 3-D ANALYSIS ¥** 
NON-LINEAR FIRE BOUNDARY CONDITICN 


2O$ ok o8 dati kok otk kokigiotok tot aio oietaadot doko tt dogo kak tok tek ge fee ik ta ake a atk 
CH A¥LTFE-TS)49N4¢SS*V 4( ARKEFXOC TF ¢TSHIFT #4 4-E S*(TS+TSHIF T)**4) 


WEERE 
TF ="PSUEDO FIRE TEMFERATURE 
TS = SURFACE TEMPERATURE 


SB - STEFAN BOLZTMANA CORSTANT = e17C0E-08 
FSHIFT —- SHIFT TO ABSOLUTE TEMFERATLRE SCALE = 460.9 
ANO ; 
WAT CCNVECT CONVECT VIEW ABSCRAT FIRE SUPRF ACE 
NUM FACTOR POWER FACTOR EMISSIV EMISSTV 
(A) (N) {v) (AE) (EF) (FES) 
1 e27C 12250 1-00C «SCO «SCO 29900 


e «© e THERE ARE 9 3-D SURFACE ELEMENTS €XPCSED TC FIRE « eo 


DESCRIPTION OF SURFACE DIRECTLY EXPCSEN TO FIRE 


FIRE6C NODE NODE NODE NODE MAT FIRE AREA 

© URF ACE I J xo, t TYPE TYPE 
1 205 299 210 206 1 1 °CC3 
2 206 210 211 207 1 1 BOCs 
3 207 211 212 208 1 1 20C} 
4 209 2123 214 210 1 1 0c 
5 210 214 215 211 1 1 2004 
6 211 21s 216 212 1 1 cc? 
7 213 O17 218 214 1 1 SNEAK? 
& 214 216 eas! 216 1 1 SOCT 
9 215 219 220 216 1 1 2cc2 
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Se a aR a ak at ak ak Rak ke a eo ak ke ke co ae ae ae a ae ae ak ake aR eke ag ae Ae a a Ro ah a ak ok ake ob ae ok ake kok ete ab of ok ote 


FIRES-T3 - FIRE RESPONSE GF, STRLCTLRES -. THERMAL 
**% CIRCULAR COLUMN WITH 172 [NCH SFIRAL - 3-C ANALYSIS #7 


INFORNMATICN SELEVANT TC THE ANALYSIS PECCERUFE 


ROS FOR Ok Rokk aa ai etka ak ee akc ae ob ae ge ak cca a i ate at ake ak ak ak op ap ab ak a oR ae ob ok ob a ak ake ak ak a at ok 


e e 2 e 


CCNVERGERCE CRITERTA sere 
CONVERGENCE CRITERIA FGR BCUNDARY CCACITICNS 


PERMISSIELE SERRE CR 
MAXIMUM NUMBER OF 


= 0©00500 


ITERATICAS = 


= 30 EFTA = -e2509 


2» @« e e STORAGF REQUTREMENT FCR RLANK CCMNCR 


@ e e 


SIZE ELAKRK CCMMCA 


8923 (CECIMAL ) 
09212333 (OCTAL) 
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JOIGIBIG IO ISO GC Io IOI SIOI I rai tai IGG iio Iai Ra oii aR a dodo ab akira ak ak ab ak tc 
FIRES-T3 - FIRE RESPONSE OF STRUCTURES - TREERMAL 

*%* CIRCULAR COLUMN WITH 172 INCH SPIRAL -— 2-D ANALYSIS **% 

INITIAL SEQUENCE NUMBER IS OQ AND INITIAL TIME IS Cie 


SSS ie Re ake ake eo he afer kee akc aK oe ee ic he ae ae ae ae he Ae ae oe he Se ae Ke hc oe oe OE I oa a A ae ok ake ak oe eH ake 


------—-----— NODAL PCINT TEMPERATURES --------------- 
N TEMP. N TEMD. N TEMP. N TENE. 

1 62.00 2 684200 3 68 200 4 68.CO 

cS €8.00 6 68.00 7 68.00 e 68.00 

9 63.00 19 68200 11 €E&.-CC 12 68.C0 
12 68.00 14 68.200 15 68200 16 68400 
17 €8.90 18 €@.CO 19 €&.CC 20 63.200 
21 €8 200 22 68-00 23 68200 24 684CC 
25 €8.00 26 68.00 oW, 68290 28 68.00 
29 68.00 30 68-200 31 €&200 z2 6O.2CO 
23 €8&.00 34 683-200 35 68200 36 68 200 
37 €8.00 3e 62200 3¢ €E.CO }8§=©4C 68200 
41 68.00 42 68200 43 68 00 44 68eCC0 
4s €8&.00 46 62200 47 68.00 48 58.00 
ac 68.00 50. 68.09 51 €E&.CO e2 6f.CC 
52 68-CO 54 68200 SS €8.00 S6 £8.90 
57 €8.00 5& 68.CO 5¢ €E2CC EC 6B.C0 
61 68200 62 684200 63 68200 64 68-CO 
€5 €&.00 46 68-CO 67 68.00 68 68.60 
6S 684.00 79 68200 71 €E&e0G 72 68.00 
72 68&.CO 74 68-90 75 68&.0C 76 58 OC 
77 €2.00 7a 68.CO 7S E€E2CC ac 6% 6.00 
81 68.00 B2 62.00 83 6& 00 84 68.C0 
es 68.200 a6 68.00 a7 62.00 Be 68.209 
89 €8.00 90 68.200 Sl €€200 Sz 62209 
93 €8.CO0 94 68-200 95 628.00 SE 68 e209 
97 68.00 9A 68.CO0 Ss EE. CC 1CC 5ReCO 
101 684200 102 68.00 103 68200 104 ABeCC 
10S €E&.00 106 682CO 107 6E&200 108 58.00 
109 €8.00 110 68.00 111 EES CC 112 GEeCC 
113 €&.C0 114 68290 its G.CO 116 68.CO 
117 68.00 118 6€€.coO. 11¢ EE2CC lec £A.O00 
121 68.00 122 68.00 122 EE6CC 124 68260 
/125 €E.CO 126 6&.CO 127 6&290 128 58.00 
129 68200 130 68.00 131 6E.00° £132 6PeCO 
123 €&.CO 134 684200 135 €8.00 13€ EE.CC 
137 68.00 126 6&.CO 13S EE. 90 14C 682.00 
141 63200 142 68.00 142 €becC 144 68.CC 
14¢ €&2CO 146 68.CO 147 6& 209 148 B00 
149 68.00 150 6&.C0 151 EEL 09 1S2 6F.0C 
152 €&2CO 154 68.400 155 EE.00 1SE€ €f.CC 


isZ €€.00 1sé 6€.CO 1SS €&.CO 160 68-200 
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ié1 
165 
16S 
Bic 
Rigel, 
1€1 
Las 
189 
igs 
197 
20t 
ran Ns 
209 
Zils 
217 


E€eCO 
€2eC0 
68-00 
€8.200 
68-00 
68.200 
€82-00 
68.00 
Efe 00 
£8 200 
€f.200 
E8 et9 
68-00 
€@.-C9 
63.00 


162 
166 
170 
174 
178 
132 
186 
190 
194 
198 
202 
206 
219 
214 
218 


68400 
6&.CO 
68200 
68.00 
682900 
68200 
é@eco 
684200 
682C0 
68-C0 
683290 
€2-2C0 
68e00 
68200 
68-200 


163 
167 
171 
175 
179 
183 
Le7 
191 
195 
iss 
203 
2c7 
211 
215 
vetg 
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6& 200 
€&.CO 
€Ee2CID 
6&.290C 
EEeCO 
68-00 
€EeCO 
€E200 
62.00 
E€eCC 
€8.2090 
€&.CC 
68.90 
£8290 
€€20C 


164 
168 
L72 


‘176 


1é€C 
184 
1G€ 
192 
196 
2oc 
204 
cle 
2 lie 
216 
2eC 


58.C0 
68.209 
6EeCC 
68eC0 
BE CC 
68.2090 
68.209 
60<eCC 
68.200 
6GEeCC 
68.90 
68.00 
68-CO 
68.00 
62eCG 


of a ab aR AR GE BE ak ae oe ok ae ok a ak Ee a a ap a a aK oe A a a oa aR a hhh ke oe ab ak ok ak oa a a ak Ok 
FIRES-T2 - FIRE RESPONSE UF STRLCTLRES - THERMAL 
** CIRCULAR COLUMN WITH 1/2 INCH SPIRAL - 3-D ANALYSIS 4% 
TIME STEP RUMBER 1 - TIMF 0025 - TIME STEP 0025 
BUI IE GCI lol dori ta toa a iam EOE ROR IO Ei aGn dob ae i tok kat et ae 
NUMBER OF NON-ZERO FLOW OR TEMPERATURE CONDITIGNS -0 


FIRE BOUNDARY CONDITION 


PIERRE CP} t= 2472690 
FIRE( 2) = —-Ce 
FIRE(3) = —-O-6 
FIRE(4) = —-O6 


------------ NCD 4L POINT TEMPERATURES --------------- 


N TEMP. N TEMP, N TEWF. N TENE. 

1 68 200 ou 68.900 3 €EeCC 4 6EeCC 

= €&.00 6 68-900 af? 68200 8 68200 

S €8-00 10 €#.C9 11 €E2CO 2 68eC0 
13 68eCO0 14 68-400 15 68290 16 68eCO 
17 €&.C0 Le 68.00 1S EEL CC 2c 68200 
21 68.00 ie 68-00 on €&.CC 24 6&.CO 
es E&eCO0 26 68.00 27 62.200 28 68.00 
29 €8.00 39 6#.C9 31 €#.CC ae 68-09 
ao €8eC0 34 68-00 ies 6& 200 EE 2 6EeCC 
= 68200 ie 68. C9 ao €E20C 4C 68e09 
41 68-00 42 68.290 43 €EeCO 44 EFeCO 
45 €8.00 4€E 68-00 47 6& 2-00 48 68 .-0C 
493 €8.200 SC 68.00 oi EE&2CC Se 68.CO0 
e3 €f.00 54 63200 boat EE 200 5S€é 62eCC 
oY €8.CO Se 68.00 eRe] €&.00 €.C 68200 
61 68.009 62 68400 62 E€E2 CC €4 €&-CC 
és E8200 €¢ 68eCO 67 €8.00 68 68 eCO 
69 €8@-00 Lee 628@.C0 rai €€-CC 72 68.C9 
Soe €8.-CO0 74 68.00 yas €8.00 eG 68-CC 
77 F-82090 7é 68-CO 4 68.200 &C 68.00 
81 68409 3 4 68-00 83 €€-CC £4 68&.CC 
2S 68-00 B6 68200 87 68.00 86 48.09 
89 €8@200 SC 68.-CO0 91 €&.. Cc Ga 58.eCO 
ack: 63-02 94 68-02 95 €F 02 Sc 68eCe 
97 68.02 oS 68eC2 9S 68.02 1cc 68.02 
101 68.90 102 68-00 103 E€EeCC 104 6€.CO 
1c5 €8-00 106 683.200 107 68-00 108 68.00 
109 €8@.202 110 6@-C2 111 C£&. Ge lie 68-C3 
113 68-02 114 68-02 415 6€.03 lle 6a. Ce 
117 €E.01 118 68. 01 119 €8.01 120 68.01 
Lat 66.01 122 68.01 Leu €&.-C1l 124 66-C1 
lew Ef.C2] 126 68202 127 624204 128 68.04% 
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ER 00 
€8e01 
€Be201 
68-00 
€&.01 
68.01 
€8eC63 
€8202 
68.07 
€E.C7 
E8237 
Ches0 
€8.235 
69 80 
6S$-80 
T3022 


130 
134 
138 
142 
146 
150 
154 

158 
162 
166 
170 
174 
178 
182 
186 
190 
194 
198 

202 
20€ 
he 
214 
218 


68.03 
68@.C3 
68.2C3 
68el3 
68-13 
68el13 
628214 
68-61 
68-61 
68. E62 
68.262 
7Coe 96 
7097 
70.298 
70¢ 98 
75249 
75-51 
75eS2 
752-52 
B5e 73 
85274 
B5Se 74 
8Ee75 


TEMPERATURE OF 


54 


58 


66 


102 
10€ 


131 
135 
139 
143 
147 
151 
155 
159 
163 
167 
171 
175 
179 
183 
137 
191 
195 
199 
203 
207 
ran | 
ret Ve 
219 


27D, S CLEMENTS 


€E&.04 
68.07 
€&.07 
€&.07 
€&207 
€E.CS 
€8.09 
EEe61 
EE EL 
€Ee 61 
6EeE2 
76296 
702-97 
70-98 
70.98 
7524C¢ 
75251 
75252 
78 «Se 
85473 
EE274 
85-74 
Ef< 7% 


TEMP. 
68.00 
E€Ee OC 
68-00 
€E2.CC 
€& 200 
€8.00 
68&.CO 
E€EeCC 
€&.00 
68-00 
€&eCC 
62.01 
€E-CC 
68@.02 
6€.02 
€E202 
€@.03 
EE CG 
€EeC8 
62.08 
E€E234 
€€.38 
ESe 7S 
he 
72023 


72.24 


32 


icc 
104 


ICE - 


68.CO 
68.00 
6&.CO 
68.00 
684200 
68eCC 
62.00 
68eCC 
68201 
68.00 
68-.C2 
68-01 
68.C2 
62.C4 
68408 
68eC7 
68.C8 
68-6 3& 
€8.2€ 
69.79 
69.80 
72.26 
73224 


109 ieee s 11¢ Ae ede 111 tae RS 
113 80 «62 114 80-62 BS €C.€2 
Li7 20.63 118 8C 263 


802653 119 


O SYSTEM ITERATIONS WERE PERFCRMED 
3 Be Ce ITERATICNS WERE PERFORMED 
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BO e€E2 
OCe€2 
80 e€2 


We aK ee Re ae eh he He ke AE ake ke ek aK ak ak ote a ae ae oe ake ae a ae ae ok aR a Se ae GH OR Rh aK Me Me ee oe Me He Ok HK 
FIRES=18 = FIRE RESPONSE OF STRUCTURES - THERMAL 
*#* CIRCULAR COLUMN WITH 1/72 INCH SPIRAL ~ 3-D ANALYSIS ** 
TIME STEP NUMBER 2 = @ni Me e050 —- TIME STEF 2025 
Whe ee ee Kc ote he fe tk Re ah ke oie ie aie ae a ke ke a aie ake ake ake ae ee ae he ake ic ie i a ae ak he fe ae ae Hee fe aie a a Kk Ie I Sh ok ok ae 
NUMBER OF NON-2Z2ERC FLOW CR TEMPERATURE CONDITIONS uC 


FIRE EOQUNCARY CONDITION 


FIRE(1) = 627 e200 
FIRE(e) = eee 
“-FIREC3) = -O-6 
FIRE(4) = =Ce 


N TEMP. N TEMP. N TEMP. N TENE. 
1 68.C0 2 68.200 3 68.00 4 68.CC 
5 €8.00 € 68.900 7 €&.CO & 68.00 
9 63.00 10 68.200 11 €&.00 12 68.eCO 
12 €8-CO 14 68.00 15 68 200 16 684.00 
les 68.00 12 68.00 1S €€.cc 2G 68.00 
an 68.00 22 684200 23 6&8 00 24 68.CO 
25 €8.00 2€é 68.00 oF 6E&.CO 28 58200 
29 68200 30 68200 31 6€.00C ze 68.CO 
32 €8&.00 34 68.00 35 68 200 36 68-200 
37 68200 38 68.09 3S €£-CO0 Ac 68.00. 
41 68-00 42 68.00 43 68-00 44 68.00 
45 €8.00 4€ 68.200 47 68.00 4e 68200 
49 68.00 50 68.200 S1 €&.200 Sc 6&eCO 
52 68.CO 54 68-200 55 68200 56 68200 
S57 68.00 52 68.00 SS €E.2CO 6C 68200 
61 68200 62 68200 63 68-200 64 68200 
€5 68.00 6E 68.200 67 684200 68 68.00 
69 68.00 70 68-200 71 €&.0C 72 6&.CC 
72 68.00 74 684200 75 68.200 7E 68200 
77 €@.02 72 68.C2 7¢ EE2C2 e©&c 68202 
81 68.01 B2 68.01 83 68.02 84 68eC2 
as €8-Cl BE 68.091 87 68.01 88 68.01 
89 68.00 90 68.00 91 €&.2CO0 Sz 68.C0 
‘ga 68212 94 68213 95 68.14 96 68014 
97 €8.11 9€ 68.12 SS GEe12 -1CC 68.13 
1015 68.02 1¢2 68202 103 6EeC2 104 68.C2 
105 68.01 106 684.02 107 68.202 108 68.02 
109 68.14 110 68215 111 6€217 liz 68.17 
112 68.13 114 68614 115 68.16 116 68.16 
117 €8.06 1184 68.07 11S €£.08 120 68.09 
121 68.05 122 68207 123 68.09 124 62.CS 
1z5 68.15 126 68216 127 68.23 128 6825 
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€E.17 
€f.24 
68-24 
68.78 
€8.78 
€28@.280 
62.80 
71 «30 
71230 
71232 
71232 
€1-86 
81.288 
81253 
81.93 
99 46 
99-54 
99.S5 
99.55 
13523 
135-28 
L2See? 
135-28 


€8.09 
62200 
€&.00 
€8.200 
€8eCO 
68.00 
€8.00 
68.01 
68-01 
Ce 0iG.7. 
€2.204 
ER.O01 
€8.C8 
63-05 
E2222 
E8215 
E840 
€82240 
702903 
69-95 
69-289 
76260 
7E261 
90 268 


140 
134 
138 
142 
146é 
E50 
154 
158 
162 
166 
Pie 
174 
1783 
182 
18€ 
190 
194 
198 
202 
206 
210 
214 
218 


68217 
62.22 
68222 
66-78 
6827S 
68.80 
68.21 
71228 
71228 
71-220 
71031 
81-85 
31-87 
81.293 
81.93 
99246 
99-254 
99.255 
99255 
135623 
135228 
135027 
135-28 


TEMFERATURE OF 


TEMP. 
€@.C0 
68-900 
68.00 
68@.C9 
68-200 
68-C0 
68200 
68.00 
68.900 
68200 
68.C1 
68-200 
68-07 
El4C4 
63213 
68.C9 
68205 
68.15 
68.20 
68432 
69.93 
65285 
7E258 
76059 
76260 
9072 


131 
1 x Bs 
139 
143 
147 
151 
» fake) 
159 
163 
167 
171 
175 
179 
1833 
WO sd 
191 
195 
199 
203 
2Cc?r 
21 
215 
219 


2=C ECEMENTS 


G7 


ate! 
eS af 


103 
107 
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6@&.27 
€&F.242 
€E244 
66.239 
6E242 
6Ee51 
Sf s.Se 
71224 
71225 
71227 
7122S 
81.85 
ELLE? 
81.92 
E12G2 
SGe45 
99.54 
Be obo 
99.54 
Dee oe, 
13£.28 
135.27 


Poce2et 


TEMP, 
€€-CC 
€&.90 
€28.200 
€E—.00 
€&200 
EE Gc 
€&.CO 
68.00 
E€E-CC 
€&.200 
€&.Cl 
€&.00 
€2.)98 
€@.01 
E€E14 
€E21C 
Ebels 
62.219 
€€.227 
€& 50 
68250 
6%e0 1 
70-06 
¥ fe Se 
76258 
90-68 
GCe7Z 


Ge 


100 
104 
Ice 


6@22C 
483244 
68.47 
5825 
68.38 
68.48 
63252 
71222 
71224 
iliect 
71228 
31-85 
B1leE?7 
3192 
B1.92 
9Ge45 
99.54 
99-55 
99eE4 
135422 
1336 c& 
W3Sec7 
3 .eck 


68424 
&3.47 
6824F 
68 248 
7C2C4 
69 .-S8 
76692 
Tease 
90.68 
90e72 


10S GO074 11¢C 90.74 111 S$C.73 
113 ? ware rs 114 117237 L135 117.41 
117 117241 11@ 117-41 119 117.241 


OC SYSTEM ITERATIONS WERE PERFCRMED 


3 Be Ce ITERATIONS WERE PERFORMETC 


PROBLEM COMPLETED 
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112 
11€ 
120 


117.37 
117241 
11741 


APPENDIX C 


LISTING OF COMPUTER PROGRAM FIRES-T3 


The following listing is the operational version 
of FIRES-T3 as of September 1977. Although the 
program has been tested, no warranty is made 
regarding its accuracy or reliability, and no 


responsibility is assumed in this respect. 


ee 


ls ne ils Me Me 
1o« GO0,.78 pe ee Re re os ‘ I yy ay ae $¢- 
13: ‘ivy .37 dL ai ta Ved? e148 4°48 
ut? 17.4% 812 ft Veet i ti7ssd 


Ais a ; 7 ' 


re LIEPATLGné BERE PERE ORYEO 
TIONS #weeC POREONA, | 


cove re 
4 xIONaI9A 
21073 MASONS AITYIMGD FO OMITZIS 
wor y anos | ort 2° part ati + ental TOY 


‘Tet vodestae? to an ET <BR 0 
on tt vanervew of ,uatesd oaed 26n arte 
stiles so ¥ne336 2st pal brisowt 


a ~ | ‘4 end re wise? Tt, aT vot i télbanogest, > 


FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FERES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIPES-T3 
FIPFES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FL@ES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPFS-TY 
FIRES-T3 
FI9SES-T3 
FIRES-T3 
F recs-T3 
FIRES-T3 
FIFES-T2 
FIRES-T3 


OONAV &FWN ew 


ANNNANANAANNANANANANANNANAAA 


Aan 


AANA ANAANAA 


fo 


10 


PRCGFAM FIRESTICINPUT pOUTPUT pPUNCH, TAPE =I NPUT yTAPE2=CUTPUT, TAPE 2= 


1PUNCH, TAPES ) 


RHEL EERE ARH LHS SERRA E KERR RE KARR EEK EAKE YE KR ER EHH RR ERE tw tr 


*FIRES-T3*® TS A PROGRAM FOR TPARSIENT » NCNLIREAR, CNE-—~- TWC-, 
AND 3-DIMENSIONAL HEAT FLOW PROELEMS EN WHICr THERMAL PRUPER- 


TIES OF THE MATEREAL CAN GE FUNCTIONS OF TEMFERATURE « 


A FIRE 


ENVIFCNMENT CAN BE SIMULATED WITH OPTIONAL LINEAR ARD NONLINEAR. 


BOUNDARY CONOT TIONS. 


THE ANALYTICAL APPROACH USED IS THAT OF A 


FINITE ELEMENT TECHNIQUE CQUPLED WITH A TIME STEP IATEGRATION. 
THE PROGRAM IS DYNAMICALLY DIMENS TONED TO ALLOW FOR MINIMUM 


ORIGINAL VERSION 


AUGUST 1977 


PROGRAMMED BY Re [DING ANDO EE. BRESLER 


UNIVERSITY OF CALIFORNIA 


ts 
* 
* 
* 
% 
% 
* 
oe 
CENTRAL MEMORY STORAGE. » 
* 
* 
* 
* 
® 
* 
* 
a 


BERKELEY 


REAR HRASHAKEKKAK STRETCH PLERKAKEKEKKERKS ER AKKHKHKKKKERSHE KEKE HS KEL SH 


CCMMOK /CONTROL/ 
1EL20 »NEL 3D, NUMEL » MRAND » NMAT » NFBC 10, NFBC20, NF BCID, NBCMAT»NACTYP 
COMMON /EXOTH/ NINTID eNINT2D pNINT3U pNENT eNCENT 

COMMGN C(20000) 


NIN=!2 
NOUT=2 
NPUNCH=3 


NALLOW=10000 
INPUT TITLE 


READ (NIN,100?) 


{IT ITLE C6), FREAD 80) »NIN»NOUT pNP UNCH »NUPNP.NEL ID SK 


ITITCE 


INPUT OF PROBLEM NESCRIPTION DONE ON BASIS DOF ALPHA-NUMERIC 
CONTRCL CARDS IN WHICH TRE FIRST LETTER OF THE CONTROL 
WORD IS CHECKED FOR PROPER INPUT SEQUENCE 


INPUT CONTROL CARD * NONES * 


READ (CARIN,ZI160) TREAD 
1F CTREAD(1)-FO.558) STOP 
IF ({TREAD(1)D.NE.1GB) GO TO 99 


N=1 


QUTPUT TITLE PAGE 


WRITE CNOUT.£10) 
WRITE (NOUT,120) 
WRITE (NOUT,130) 


WHITE {NCUT,140) 


WRITE (NCUT.1t<cO) 
WhKETE CNOUT. 1503 
WRETF CNOUT,129) 


INPUT CF NODAL 


ITITCEe 


CATA 


FIRES=T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
EIRES=T5 
FIPES-T3 
FIRES phe 
FIRES-T3 
FIRES=T3 
FIRES-T3 
FIRES-T3 
FIRES-—T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FURES-T.3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
EMRE S53 
FIPES-TS 
FIRE S= 13 
FIPFES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRE S-7T3 
FIRES=T3 
FIURES-T3 
FIRES-T3 
FIRES-T3 
FIPE S-T3 
FIFES=T3 
FIRES-T3 
FILRES=T 3 
FIRES-T3 
FIRE S= 73 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRE S-T3 
FIRE S=T3 
EITRES=T)s 
FIPFS-T3 
FIRES-TR 
EIPES=—13 
SIRE S13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES—-T 3 
FIrRCS-T3 
FIPRECS—T 2 
FIPrs-T3 
© TPE S-T3 
PMS i SO fi 
FUE S=<T3 
FIFE S13 
FTeEES=-T3 
FOL 6-13 


63 
64 
65 
65 
67 
68 
€9 
70 
71 
7? 
73 
74 
75 
76 
ive 
7a 
793 
80 
al 
$2 
83 
ea 
85 
e6 
a7 
88 
a9 
90 
91 
92 
932 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
10S 
110 
ie | 
li2 
a1°% 
114 
11S 
116 
117 
119 
ti9 
120 
1?1 
17? 
ss 
124 


ABAARAAAAAA 


Ana 


VAG GHAR AN AA AG 


NUMNP —- NUMBER OF NODAL POINTS 


NTBC — NUMBER CF KARCWN TEMFERATURE BOUNDARY CONDITIONS 


XCLI=CONT) -— xX COORDINATE CF KRODAL POTKT 
V(tLd=CON2) - Y COORDINATE OF NODAL POINT 
Z(€1)=CON3) - 2 COORDINATE CF KODAL POINT 
KONDE(1LI=C(INDO) - INDICATES TYPE OF ROUNDARY CONDITION 
FLCW - HEAT FLOW IS KNOWN 
TEMP - TEMPERATURE IS KANCwR 


DUMI(1)2=CCNDI) - DUMMY VARTABLES REQUIRED IN CALCULATION 


I VARIES FROP 2 TO 5S 


NUPNFEFZRUPHERON) 

TF CNUMNP-LE-90) GO TO 99 
NTAC=AUMBER O(N) 

TF (NTBCeGTeNUMNP) GO TO 90 
Ni=l ; 
N2=N1¢NUNNP 

N3=N24NUMNP 

KDO =N34NUMNP 

ND 1=NO 0+ NUMNP 

ND2=NO1 #NUMNP 

KD3 =ND2 +KRUMNP 
ND4=ND 32+ NUMNP 

KOS =NC4 ¢RUMNP 
N4=ND © +#NUMNP 


CALL ACNE (CONDE) eCON2) «CONS De C (NEO > CC NOI) »NTEC) 


TKPUT CONROL CARC * ELEMENTS * 


RFAD (RIN,160) TREAD 


IF (TRFEAD(1).NE-S@) GO TC 9C 
N=1 


INPUT OF ELEMENT DATA 
NELIN -— NUMBER OF 1-C ELFMENTS 


NEL FD - NUMBER OF 2-ND ELEMENTS 
NEL3D - NUMBER NF 3-0 ELEMFNTS 


NULMEL - TOTAL NUMRER OF ELFMERTS 
MPAND —- MAXIMUM RANDWIEDTH OF CONDUCTIVITY MATRIX 
LVMCPV=SC(INAD) - ELEMENT NODAL PCINT CONFIGURATION ARRAY 


MAYTYPECTI=C(NS) — MATERTAL TYPE 

HARFACLI=C(INA)D - BAR AREA ( FCR 1-D FLIMENTS )D 
THICKCLI=ECECN7) - ELEMENT THICKAFSS ( FOR ¢e-C ELEMENTS 
VOLUME CLI=ECONV) -— ELEMENT VOLUME (€ FOR 3-0 ELEMENTS ) 


NOL 1LO=NUMBERCN) 

NOP LAC=NUMHCE CN) 

NEL 20 =NUMBEE OND 

NUMEL =NFL ID ENEL AD ENEL 32D 

TF CRUMELSLE.O) GE TU GO 
NOTNG42*NEL IN ®O*NEL QDR FNEL ID 
NO TAS CRUMEL 

N 7=Nf¢NEL ID 

NV=INZ7#NEFL 21) 

N&TAVERE ESD 


CAPT FUE MERT COOND De COM AVC CON? De OONMG DOS Cds eC OMG eC ONT) of (NV) D 


UT CUNTEIML CALD ~*~ MATERE AL © 


C-2 


FIRES-T3 
FIRES-TI 
FERE S-TJ 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FARE S-T3 
FIPES-T3 
FIRE S-T3 
HtRES=— 7,3 
FIPES-T3 
FIPES-T3 
FIRFS-T3 
FIPFS-T3 
FIRE S= 71:3 
FIRES-T3 
FIRES-TJ 
FIRES-T4 
FIRES-T3 
FINE S-T3 
FIRPES-T3 
FIPES-T3 
FIRES-T3 
FLPES-—F3 
FIRES-T3 
FIOES-T3 
FIwes-T3 
FIRES-T3 
FIRE S-13 
FIRES-T3 
FIPRES-T3 
f tRES-T3 
FIRES-T3 
rFires-T3 
fF IPES-T3 
FIMES-T3 
Fire’ S-T3 
FIRES-T3 
FIRPFS-T3 
FIRES-T3 
FIRES-13 
FIPCS-T3 
FEURES-T3 
FLPES=T3 
FIPES-13 
FIRES-T 
FIrFF S-T3 
FIRFS-T3 
FIQFS-T3 
FIPFS—T 3 
tTPeES-14 
FIPES-T3 
Mths =T% 
(ter5-14 
FwHtiso-T4 
PTeFG-VS 
fer 5-73 
¢ pest 3 
tyeru-T4 
theese ta 
P.PR ERK TS 


125 
126 
127 
128 
129 
130 
131 

L32 
i335 
134 
1.35. 
1346 
137 
135 


13% 


140 
141 
142 
143 
144 
145 
146 
147 
14ff 
149 
1959 
151 
152 
154 
154 
155s 
156 
157 
158 
199 
160 
161 
1G? 
163 
164 
1€E5 
166 
167 
168 
169 
170 
171 
17? 
173 
174 
ES 
176 
177 
17TsR 
179 
1490 
1*9it 
) aed 
qe! 
1a 
Ee 
| Malay 


NAARANAAA 


aR 
ae 


ALG 


A 


AA AO OES ORO Se elec) 


SS fo} Yea Nowe). Gy 


rane) 


PEAD (NIN,LT60) TREAD 
IF CYREAD( LINE 15H) GO TH 90 
N=1 


INPUT CF THERMAL PROPERTIES Fri 


NMAT — NUMDCR OF OLFFERENT “SA 
MATL(LV=ECONS) - CONTROL DATA 
THERMAL PROPEL 

XYSC1=COND) - FUNCTION VALUE 
CONTAINS 


DIFFERENT MATEVIALS 


TERTALS 

FEQUTRED FOR CALCULATION (UF 
RTLES 

S #OR THEPMAL PROPERTIES 


xX COCROEINATE - TEMPLHATURE 


Y COORDINATE = FUNCTION VAL UF. 


Ss - 


NMAT=AUMBER (ON) 
IF (NMAT.LEQ-O0) 
N'F=NR 66 *NMAT 


GO TO 90 

CALL MATRIAL (CCNA) »CONG) oN) 
RIO=AQEN 

INPUT CONTROL CAPD * FIRE * 
READ (NIN 160) 


N=] 
TF CERE ADC 1) -NFCORI GO TO 90 


TREAD 


[NPUT GF FIRFF ROUNDARY CONDITION 


NFPC1O - NUMAFR OF FIRE HeCe 
KE RCAD — NUMBER OF FIRE BeCe 
NFBC 30 — NUMBER OF F TRE Ne. 


SLOPE OF LINES CUNNECTING Xe¥ 


PATH 


DATA 

SURFACE NUDES CFER 1-D FLE MENTS) 
SURFACE CLMTS CFOR 2-0 ELEMENTS) 
SURF ACI FULMTS CFCFR 3-C FLEMERTIS) 


( THESE ARE MAXI MUMS IN CROER TO ALLOT STORAGE ) 


NBCMAT - NUMNAER OF DIFFERERT 
NPCTYP - TYPE OF FIRE BeCe 


WATERFALLS FOR FIRE HeCe 


MAT(1)=CC(NTO?D - CONTROL DATA REQUICED FCR CALCULATION UF 
BOQUNDARY CONDITION PECPFRTEIES 


FRYSCLI=ECCRI1T) — CONTAING FUNCTIONS OF F TIVE 
STRUCTURED S 


NI AUC IDZNUMBER ON) 

NEC PD =NUMALR ON) 
NERCIMO=NUMBERCR) 

NUMERC =NEMC 1DEtNnr ic 204 NERC 40 
TF (RUMFACCEQ*eCO) Gt TM 40 
NUCMATZNUMHE PON) 

PEAD (NIN, THO) TPEAD 

If (PREAOCL VONE 2146) GO TO 2O 


LINEAR FIRE QOUNDARY COND TT ION 


Q = WOT CTF -TS) Wht Bef 
HOT) — SURFACE tt AT IRANSELR COPRFFICENT 
te - #SUROO-F ERE TEMFE ATURE CERPUT DATAD 
TS = SUPTACE TEMPE PATON tT So V¥STEM 


T=C18 63195972 
NEC TV POUL ENE AR 1°¢ 
NITE INTDOCOANISC MAT 


Gtr” TG ay 


1 ESM OL Dre REE en NOUR ct C NUON ate ty 


AME AS XYS 


HeCe FROPLA TIF S 


FIRE 


FIRES-T3 187 
FIRES-T3 128 
FIRES-T3 189 


NON-LINEAR FIRE ACUNDARY CONDITICN 


PRE eoz tes 190 Q = A¥(TF-TS)®*N & V¥SRYCABXEFPATEY TO4-ES*ATSS* 4) 
EYRES = 3 191 
FIPES=-T3 192 WEERE —- CONVECTION FACIOP 


FIRES-T3 193 
ELRES= 5 194 
EF RRES='F3 195 
FIRES-TY 196 
FIRES-T3 197 
eR tS 1¢8 
ETP S=— 73 199 
FIPE S-TS3 200 
Ser Ss— Ts 201 


A 
N -— PCWER OF CONVECTION TEFM 

V -— VIEW FACTOR FOR RADIATION TERM 

SB - STEFANN @CLTZMANN CONSTANT 

AD - ADSORHTION FACTCR OF FIRE 

€F - EMISSIVITY OF FIRE 

ES - EMISSIVITY UF SURFACE 

AT& - ABSOLUTE TR MPFRATURE OF PSUTUC FIRE 

ATS - ABSOLUTE TEMPERATURE OF SURFACE OF SYSTEM 


NAAM DS P.O Oo 3 As 


FIRES-T3 202 NACTYP=1OHNON-LIN AC 

FIRES-T3 2023 ALi =N104+NGBCMAT 

FIPES-T3 204 ¢: 

FIPFES-T3 295 30 CONTINUE 

FIRES-T3 206 Cc 

FIRPES-T3 207 CALL FIVPEMAT CCEINIO),CONIL) ND 

FIRES-TJ 20R NIZ=NLT4N 

FIRES-T3 209 Cc 

FIPES-T3 210 (€ INPUT CF GEOMETRIC DESCRIPTICN OF FIRE ROUNDARY 

FIPES-T3 211 G 

FIRES-T3 212 Cc CICPIZFC(INI2A) -— FIRST NODE THAT BOUNDS FIRE SURFACE CLE 
FIRFS-T3 213 ‘G € 21-De 2-0, AND 3-D FLEMFNTS ) 

FIRES-T3 214 Cc LICLIEC(NEID) - SECOND NODE THAT BOUNDS FIRE SURFACE FLEW 
FIRE S-T3 215 Cc ( 2-0 ANO 3-D FLEMENTS ONLY ? 

EIRES=—T3 21:6 Cc CKC}I=CONI4) - THIP? D NODE THAT HOUNDS FIRL SURFACE ELEM 
ETRES—T3 217 Cc ( 3-UD FLEMENTS GNLY ) 

FIRES-T¥3 218 G LL(1)=CONES) = FOURTH NODE TEFAT BOUNDS FIRE SURFACE ELLM 
FIPTES-T3 219 (€ : ( %O ELEMENTS ONLY ) 

FIPES-T3 220 3 LRPATCLI=AC(NI6) - FIRE ROUNDARY CONDITION TYPE (MATERTAL ) 
FIRES-T3 221 (§ LETPE CL) =C(CNI7) -— NUMRER OF FIRE ACTIVE ON SURFACE I, I-Je 
FIPES-T3 222 Cc OR 1-J-K-L 

FIRES-T3 aa G ATJIKL GAL) =EFC(NIA)D) -— AREA OF SURFACE [, I-JSJe UR THJ—-K—-L ; 
FIPES-T3 224 IG LELEM(LI=HCINIGD) -— NUMBIP OF FENT TE FLEMTERT ADJACENT TU THe 
FIRE S-T3 225 Cc FIRE SURFACE (€( 1-90 AND 2-D GNLY ) 

ie sates 226 AE, 

FITES-TS mein Ni 3=N124NUMF BC 

FTRES-T3 ?2A NIG=ALS+*RERCZDERERCIO 

FINMFS-T3 229 NIS=N144NF FIC 30D 

FIRES-T3 230 NI6G=KRIS *¢NFAC3I0 

FIRES-T2 ait N1I?7EN1TE+NUMFRC 

FIM S-T3 re 3 NIH=N17 ¢NUMFRC 

FIRE S-T2 233 NI GD=A1 94 KUNE OC 

FIRES-TI 234 N2O=N194¢NF RC LONE BCAD 

(PAR SP ee (S 

FIRES-T3 2? 36 CALL FIRESC (COND) -CONZI,CENIIDZCONDO ) eC OND VECINZT IDG CONTEST VA CONE 1000 € 
TIME S-T3 re We INTA IP CONTSD oe COMI) oeCONT ZI GCC NTH) CONT D)D 

FIR? S-TQ ae CIAL ISO 

FIRES-T3 239 £7 

FIPCS<T3 2459 490 CONT ENRUE 

PmeRers-T? Paes | G 

f IR S-T3 24a? i? ESM NG TPt ACG. ISSO CIE Be NEVA PS eM =e Ne 

f ReS-T2 P43 Cc 

IRE G=-T 3 Par NIEL=ENIC 

FIRES-T Pad NIAENIC 

FIRE SG-13 246 NYT t=nie 

17 S-T2 Pa7 NI4=-=A10 

FIPES-T3 Pan NISENEC 


FLLPES=73 
FIPES-T3 
FIRFS-T3 


FIRES-13 


FIRES=F3 
FIPES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FINES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FURES-T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-13 
f TRES-T3 
FIPES-T3 
FIRE S-T? 
F 19ES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
HERES 134 
FIRES-7 3 
FIRE S-T3 
FIRES- 13 
FIPES-T3 
FIRE S-T4 
FIRFES-T 3 
Freer s-T3 
FIRCS-13 
ACES <7 5 
CIPES-T3 
FIRtS-T3 
FIRPES-T3 


249 
2c 
251 
282 
254 
255 
2fe 
257 
258 
2s9 
260 
261 
262 
263 
264 
265 
2€6 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
eda 
278 
279 
20 
2e1 
282 
2e3 
2684 
285 
PPE 
?87 
283 
2A9 
290 
291 
292 
293 
294 
295 
29g€ 
297 
298 
299 
300 
301 
302 
303 
304 
BIH 
NG 
SO7 
308 
ton 
310 


Aan 


ANNAABAADANDNANAARAARAANRAADA 


AAA TWA VEAL An 


70 


NI6=A10 
NI7T=N10 
NIS=N10 
ALQJ=R10 
N20=N10 
INPUT CCNTRUL CARD * EXOTHERMIC *# 


READ {NIN»160) IREAD 
IF CIFEAD(1)-NE-SARI GO TG 90 
N=1 


INPUT CF DOATA DESCRIBING ENTEFNAL EXCTHERMIC HEAT GENERATION 


NEATIO -— NUMBER CF 1-D ELEMENTS WITH INTERNAL FEAT GENERATION 
NINT20 - NUMBER OF 2-D ELEKPENTS ®ITH IATERAAL FEAT GENERATION 
NINT3O - NUMGER OF 3-D ELEMENTS WITH INTERNAL HEAT GENERATICR 
NINT — TOTAL NUMGER OF ELEWENTS WITH HEAT CENERAT ION 
NQINT -— NUMBER OF DIFFERENT HEATING CURVES 
LEXOCLI=C(KR20) — CONTROL CATA FOR FEATING CURVES 
EXYSC13=CON21) - CONTAINS FUNCTION VALUES FOR tFEATING CURVE 
X-COORDINATE — TIME 
Y-CCORDINATE - REAT SATE 
S - SLOPF OF LINES CONKRFCTEING Xe¥ FAIRS 
TEL (CL I=CCN2Z29 -— ELEMERT AKUMPER OF EACH ELEMENT UNDERGUING 
EXOTHERMIC HEATING 
TWAT(19=CO(N23) -— HEATING CURVE OF EACH ELEMENT UNDERGCING 
EXOTHERMIC HEATING 
VEL C1D=C(N26) -— VOLUME OF FACH ELEMENT 


NINTIO ZNUMBER(N) 
NIAT2ZC=NUMBER(N) 
NINTID=NUMBER(AN) 
NINTENINTIDANINT 2D4¢NINT 3D 

IF (RINTCNE2O) GC TO 60 
N21=N20 

N22=K20 

N23=K20 

N24=N2C 

N25=h20 

Gt) TO 70 

NOTANTSAUMBER(N)D 

N21 =R204¢NCINT*3 

CALL EXOFUN (CIN20) -CC N21) eN)2 
N22=KR2L4N 

N23=N?2?4NINT 

N24=2N23¢NINT 

R25 =K24¢NENT 

CALL E XOELS (CON1) eCON2) pCON3) 6 CONG D eCOND) oC ONT) Pp CORVD CEC OR27 VOC CRP 
13),C(KR74)) 


ESTARL ISH ANDITTONAL DYNAMICALLY DIMENSUCNED VARLTAULES Re QUIFED 
TN THE HEAT FLOW ANALYSIS 


Q(EV=CIN?S) -— FLOW VECTON 
TORI FCONZ6) = TEMPERATURE vVEICTON 


AC LD=CIN?7T) = HF AT LUAD (FLOW) VECTIF USED TN ANALYSES 
ATOCLITFCORPS) - CLEMERT TEMFERATURES 

ACTS DIECINZGD) - MODTETIED CONDUCTIVITY MATRIX 

ONTCTAL - TOTAL AMOUNT UF STORAGE ROQUILED FOR ULANK COMMON 


N?PS=N25 ¢NUMNP 


FIPES-1T3 
FIRES-T3 
FIRES-T3 
FIRES-T3Z 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPFES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T32 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3Z 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRCS-T3 
FIRES-T3 
FIRES-TZ 
FIPECS-T3 
FIRE S-T3 
FIPES-T3 
FIRNES-T3 


311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
fed 0 
328 
229 
330 
331 
Soe 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
246 
347 
348 
349 
350 
351 
3582 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
3E5 
366 
367 
368 


aAAAnDN 


AANA (a) 


aaa 


K27=K264RKRUMNP 

N2@=NZ27¢NUMNP 

N29=N28 4¢NUMEL 
NTOTAL =N294 NUMNE* MB AND 

1F (NTOTALeLEeNALLOW)D GO TO 8C 
WRITE (NCUT,180) NTOTAL 

stop 


TNPUT CONTROL CARD * CCAVERGENCF * 


80 FREAD (RIN,160) IREAD 
IF (TREADCI)-NE-38? GO TO 90 


INPUT CCNVERGENCE CONTRCL DATA FCR ITERATIVE PROCESS 
CALL CCAVERG {NTOTAL) 


TRANSFER CONTROL OF PROGRAM TO HEAT FLOW ANALYSIS ROUTENE 
IN CRDER TC CARRY OUT STEP-BY-STEP TIME INTEGRATION 


CALL FEATFLO (CC(N1 De CON2)eCINI) ee CKNDO)D,COUNN1) ,CCNOZ) -CCNDI) ,CIND4S) 
1 eC OC NDS) »-C(NS) -COUNSD 0CENG) -CON7) » CONS) » COND DP CUNEO De CONE DDO CINI2 DAC 
Z2ONIT 3D CON14 De CONIS)D,CON1I6) »>CONET7) CONTE) -CONIG) ->CUONZ0) pCO N21) »C (KP 
32) «CONZ3) pCO N24) > CO N25) o CON26 Dp C (N27 Do CON28 De CON29) pCO NV) »eNUMNP NU 
4MFBC) 

GO TC 10 


SO CONTINUE 


ERROR WAS DETECTED IN CCNTPOL wWORO OR CONTROL VARIABLE 
HAS IPFROPER VALUE AND PROGRAM IS TERMINATED 


WRITE (NOUT,170) TREAD 
stop 


100 FORMAT (6A10) 
810 FORMAT (1HG,13¢7)) 
120 FORMAT (61H FERERAEREESREREKREKEESSEEKERRARECEAELS SESE RRL ESSHS SEH DS 


1LX*KHO8) 

120 FORMAT (//77,5X%,SOHFFFFE = RRRRR EEEFE SSSSS TVTTT 222 
133/SX,SOKF 1 R R € s T 3 /5X%.50h 
2F 1 oR R € Ss T 3 /5xX,SCHE I 
3 R RE Ss T 3 75%» SOHFFF 1 REEER CE 
4EE SSSSS. _ s=2=2=2 T 3233 75x, SOHF 1 RR & 
ss T 3/5X »SOKF tT Re E s 
& T 3/5%eSOHWF I RR € S 1 
7 3/5X »50HF 1 Rk F EEEEE Ss5SSS T 33232777) 


140 FORMAT (7X49HA THEPMAL ANALYZER FUR THREE-OTMENSICAAL SYSTEMS 9/7X,y 
1,4S5HWITH TEMPERATURF-DEPENDENT TFERMAL PROPERTIES) o/7X,_, 32H SUHJIEC TE 
20 TC A FIRE ENVIRONMENT »4/7) 


1SO FORMAT (7//18X%,24H- - -— TETLE OF RUN -— — -—e//EXe6ALOS//) 

1EO FURWAT (AOR )D 

(70 FURMAT (607) 54S5H - - = PROGRAM TERMINATED -— [NPUT ERROR - - -,4/1X 
1,80F19 

1€0 FORMAT (4//727H STOP -— INCSEASFE FLANK COMMON SIZE TO, f10) 
END 


C-6 


BLRES= 13 
FIRES-T3 
Bor eo=t 3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIPES-T3 
F LRES-T3 
FERES-T3 
FIRES-T3 
FtkesS=7 3 
FIRES-T3 
FRE S-—T3 
FIRES-f3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FLRES-T3 
FIRES-T3 


FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRCS-T3 
FIPE Ss— v3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIGCES-T3 
FIPES-T3 
FIRES-T3 
FLIPFES-13 
FIReES-73 
FIFES-T3 
FURE S715 
FIRES-T? 
FIFFS-T3 
FIPES—T 3 


3€9 
370 
AW 

372 
373 
374 
375 
376 
ota, 
378 
RRA) 
380 
381 

ae2 
333 
384 
345 
386 
eltae/ 
388 
389 
390 
391 

3S2 
393 
394 
395 
396 
397 
398 
3399 
400 
401 

4ac2 
aOR 
404 
40s 


406 
407 
aOR 
409 
410 
ail 
412 
ai3 
a4 
415 
416 
417 
aia 
419 
420 
421 
422 
423 
Ara 
ars 


MAA AAAS 


AN AANAA 


Cat Vint sa} 


10 


20 


40 


£0 


FURCTICN NUMBER (T) 


FURCTICN *NUMBER* OGRTAINS AN INTEGER CONSTART CUNT AINED 
ON AN ALPHA-NUMERIC CONTROL CARD. 


THE TENTEGER CCNSTAAT MUST 


BF CCNTAINED BETWEEN CGMMAS OF BETWEEN A COMMA AND A GLANK. 


COMMCKR /ZCONTROLZ ITITLE(6) » FREAD (80 ) > NIN» NOUT ¢ NPUNCH, NUMNP)NEL ID YN 
1EL 2D, NEL 3D, NUMEL » MBAND »NMAT »NERC 1D »pNFBC2D eNFUC 3D »pNACMAT -NBCT YP 


K=0 

J=TRPEADC TI) 

{fF (@jJeE€C0.56B) GC TO 20 

TF (€53e¢GT¥-232B) GO TO 4C€ 

T= ¢l 

IF (1-2E9281) GN TO 30 

Go TO 10 

T=f¢1l 

J=TREAD(T) 

IF (JeEQ-5SH-OReJ-EN25EOR) GO TO 20 
TF (JeL TeSIRCOR]e IeGT.448H) GO TO 40 
J=J-3380 

K=Ke 1045 

GO TO 20 

RUMBER=K 

RETURN 


CONTE NUE 
PRINT SO, CITREAOCJ) »-J=1-80) 
STOP 


FURMAT ©€//7/7,33H - - - PROGFAM TEFMINATFD — - - —94/4,13H 
1OR»./IX,80R1) 
END 


SUBROUTINE NODE ({ Xe V_9ZeKQDE g IN eNTUC) 


SUBPCUTINE *NUDF*® INFUTS NODAL COORDINATES AND St TS 
THE FLOW ANO TEMPERATURE POUNCARY CONDITIONS 


IKPUT FRE 


COMMON SCONTROLZ TTITLE CO) ep TREAD (CHO) PAIN, ROUT ¢NPUKCHe RUMNE NEL IDK 
LOLAD, NEL 3D, NUMEL « MHAND, NMAT pNFHC ID NERC 2D op RFUC 3 pNIC MAT eNACT VE 


DIMENSION XC» VOEI, ZEL%, KCOF CED, LOCI) 
OUTFLT PAGE HEACING 


WRITE (ANCUT.109) \ 
“PITE (NUUT.110) 
WRITE (NOUT,I20) FTITLE 
WPITF (CNOUT,130) 
WRITE CNULT,»2 20) 
WRITE CNCUT,149) NUMNP 
weEETF (CNGUT,1%9) 


FYIRES-T3 
FIRFEFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIRE S-T3 
F IRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRFES-T3 
FIRES-T 3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRPFS-T3 
FIRES-T3 
FIRES-TI 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FYTRES-T3 
FIPES-T2 
FIRES-T3 
FIRES-1T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRES-TI 
FIPES-T3 
FIRFS-13 
FIRFS-T3 
FIRE S-1T3 
FIRES=T3 
FIers-T3 
FIPES-T3 
-IPFS-T3 
F Ire s- 73 
tIRES-T3 
FIrers-TY 
FIRE S-T3 
* TRE S-T3 


426 
427 
42e 
429 
430 
431 
432 
433 
434 
435 
416 
437 
43PA 
439 
440 
441 
442 
443 
444 
445 
446 
447 
44A 
a4aq 
450 
4s! 

452 
453 
4c4 
455 
456 
4as7 
ase 
4as9 
460 
461 

462 
4€3 
464 
4éS 
4€6 
467 
4€8 
469 
470 
471 
472 
473 
a7A 
a7S 
476 
477 
47R 
avg 
480 
4Pl 
482 
AAR 
ana 
APS 
AIG 
447 


AAD 


Laat.) 


oa a 


An 


fa) 


a 


INITIALIZE BOUNCARY CONOITIONS TO FLOW 


0O 10 f=1,NUMNP 
10 KODE(T)=4HFLOW 


fNPUT RKOCAL COORDINATES 


t=t 
20 READ (NIN, 160) Ne X(NDDVINI,ZIND 
1f (NeGEeL) GO TO 40 


30 ePLETE CNOUT 61799 NeXT ND OVENDs ZOND 
stoe 


40 [F (NeEQeL) GO 10 60 
IF (tl eEGe1) GO TO 30 


WHEN N eGEe L THE PROGRAM GFNFERATES [NTFRMFEDEATE ACDES 
AT IATERVALS OF OX. OY, AND DZ 


DIFFEN¢1-L 
OX=(X ON) -XCL=-1) 701 EF 
OV=(YON)—Y(L—-1)) OIF F 
O2=020N)-Z(L-1 D/O EF 

£O X(LI=xX(L—-1) 40x ' 
Y(L D=V(L—-1) 4D¥ 
Z(LV=Z(L—194DZ 
L2zLel 
IF (KeGTeL) GG TO SN 

€0 L=t41 
IF (NeLTeNUMNP) GO TO 20 
IF (NeKEeNUMNE) GO TO 30 
1F (NT8C.EQe0) GO TO BO 


INPUT KACWR TEMFERATURE ROUNDARY CONDITIONS 


REAC C(NIN,1ROD CIOCI I, 1=i-NTACD 

00 70 t2=1,NTRBC 

J=1000) 

TF (Sel Fe Oe CReJeGTeNUMNP) GO TO 90 
70 KODECS V=OHTEMP 


NUTPLT NODAL COCRDINATES AND ROUNRDARY CONDITICGN COCE 


AO WRETE (NCUTLI90) CTeXCTIoVCT) e700 de KODE CTD», f=1.NUMNE)D 
PETURN 


SO wREITE (NOUT,700) 
sTane 


100 FOAMAT (1HE»SC7Z)) 

L1LO FORMAT COLH SR OH AAR AW RARER ESE AE ELE ER HH AAA PERSE E RL EET et 
Lerkr ety 

120 FEMAT €SOKSOHF TRF S-12 - FIRE CE SPORSE CF STRUCTUFFLS - TEERMAL eZ 
T/UXsE AIO) 

VIO FUTIMAT OC77X,8HHGE CME TRIC DF SCKTRETICR C+ Sv¥GILM Tt Fe ANAL VWZER,7) 

149 FURMAT (77,2061 e © e fe THE ME TARE  'g Tiae P24t NONAL PUINTS « ce « yon 

1SO FORMAT (S761 NODAL ePaXxe LIP CORO INMATES 6 DX ep RANCURLAR Vs Ze oht PIINT » & 
UX e We LARS DEM LAK yg LIS 9 ts KX 9 HHCIINIDT TECIN 6 7) 


C-8 


fIPES=T3 
FIRES-T3 
FIRES-T3 
EtRES-73 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 


FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIrPes-13 
FIRES-T3 
rFirees-T3 
EIRES-T3 
F TRES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-13 
FIRES-T3 
FIPFS-T3 
FIRES-T3 
FIRES-T3 
FILRES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FIRPES-T 
FIPES-TI 
FIRE S-T3 
FIPES-T3 
FIreFs-T3 
FIRES-T3 
FIPES-T3 
FIFE S-1T3 
FIirPrs-T 3 
tIPES-13 
FIRCS-TY 
FIRES-T3 
FIPf S-13 
f IPEG=$T 4 
FIPES-13 
FIRFS-T3 
FYPis-TY 
FLeF S-T3 


488 
aAg 
490 
491 
492 
a93 
494 
495 


496 
497 
49a 
499 
S500 
sol 

59? 
503 
£04 
505 
506 
507 
sos 
509 
510 
Sil 

si2 
$i3 
$14 
$15 
S16 
517 
518 
si9 
$20 
$21 

S22 
S523 
£24 
525 
5?6 
S27 
sen 
52¢ 
$30 
S31 

S32 
S33 
534 
Sas 
5.30 
537 
Sy 
52g 
540 
541 

S42 
i 
544 


naAaAanAN 


ananan 


fa] 


C1) 


AAY 


160 
170 


180 
1S0 
200 


10 


ac 


FORMAT (15, 32E10-0) 

FORMAT (507),51H - -— — EREGGRAM TERMINATED - NOLE INPUT ERROR - - 
1-9 7/1K 9 VS —9 3F 1064) 

FORWAT (1615) 9 


FORMAT CTS ¢3F 15¢4e7K, AG) 

FORMAT (5(7)0,33H - - — PROGRAM TERMEINATEO - - — 94 947H ERROR IK 
ITEMPERATURE BOUNDARY CONOITICN IAPUT) 

END : 


SUBRCUTINE ELEMENT (X 9V,Z,LM_,MMTYPE pg HAREA, THICK » VIILUME ) 


SUBFCULTINE FELEWERT® TNEUTS ELEMENT OATA 


COMMON ZCONTROLZ ITITLE(G) -p TFEAD(HO) pNINe NOUT »NPUNCHKe NUMNP,NLL 10—™ 
1. 2D0,NFL 3D, NUMEL . MRANI)D, NIMAT »NENC 10 »NFAC 21) eNFEtHIC 3D ¢NHCMAT QNIIC TYP 
DIMERSTON XC1), VER, ZELd, LMOL IG KX(AD, MMTVYPEC ID, BAREAC EDs WHE 
ICKO 1), VOLUME OD) 

DIMENSION SICA), TI(BD, UECAD, XXTAD, VYYCBRI, Z7Z0COd, OF 3¢8), PSTUCP 
1) 6 DPSTULCI®AD», CIJAC( 393) 5 POS(?) 

DATA O©NS/=-0 eS7725027¢ 40 eS773E02T/ 

DATA SIZ—Leeleelerr-les—-lLegloegloy—i of 

DATA Tis—Lewr-legtergtee—leg-leolo plaZ 

DATA UI —-Leerleerleg-lLevlogtevlegtos 


ONE - DIMERS FONAL 


MOAND=0 

IF (NEL10-FQ.0) GO TO 80 
ALM=0 

NUMzO 

WRITE (NOUT,360) NEI 1D 
WRITE (NOUT »370) 

DO 7C N=1,NELIOD 

AL M=ALM42Q 

IF (CNUM-N) 10,20-20 


READ ELEMENT CARD 


READ (RING920) RUM KCL De KXC AV MT TI ofA 
IF (BAcCEQe2020) AA=120 

IF (NUMSGTeNELIC) GO TO 40 

TF (NeEQe1¥ GO TM 30 


Gt.NCFATFEF LB ARRAY 
CMCALM-1D=LMCNL Y—3) 41 
CMOCNL MD EL MONI M-2 ) eo] 
MMIVFE (CM) =MMTYPE (N= 104 
CARE ACN =HAREACK-1) 

Tf (RUM-N) 40,550.00 
PRROR TN PFREUT CARNS 


WEETE OCNEGT 920d NUM KX CLD RX EMI METI Qin 


FIRES-T3 S45 STOP 


FIRES-T3 S46 Cc 

FIRES-13 547 £O UCMCNLW-1 dD=KXERYD 
FIPES-T3 5485 LMC NLM)=KXE 2) 
FIPES-T3 S49 WHTVYFE (RN D=YTEIPE 
FYRES-T3 SSC BARE A{N) =8A 


FIPES-T3 SS! 
EPRES—=7,3., SE2 
FIRES-T3 S53 
FIPES-T3 554 60 WRITE (NOUT, 480) Nel MCNLM—1DeL MONLY) oe MMTVPE(N) pBAREACRK) 


OUTFLT 


AAA 


FIRES-T3 S§5 Cc 

FIPES-T3 556 c DETERMINE BANDWIDTH AND STORE IF MAXIMUM 
FIFES-T3 557 a 

FIRES-T3 558 J=LMCONLM-2)-LMCRLMD 42 
FIRFS-T3 559 K=LMONLM)-LMONLM—6)41 
FIRES-T3 560 IF (JeGTeMBAND) MAAND=J 
FIRES-T3 561 IF (KeGTeMHAND) MRAND=K 
FIRES-T3 $62 70 CONTINUE 

FIRES-T3 S€E3 Cc 

FIRES-T3 564 Cc 

FIRES-T3 SES Cc TWO-ODOIKV*EARAS TONAL El EMENTS 
FIRES-T3 566 Cc 3 
FIPES-13 567 Cc 

FIRES-T3 SEéE8 €O IF (KEL20-EQ-0) GO TO 140 
FIRES-T3 569 NULM=2®NEL 10 

FIRES-T3 570 NUM 20 

FIRES-T3 571 WRITE (NOUT.380) NEL2D 
FIRES-T3 572 WRITE (NOUT.400) 

FIRES-T3 573 DO 17C N=il,NEL2n 

FIPES-T3 574 NI=N4NEL 1D 

FIRES-T3 €7§5 ALW=AL¥44 | 

FIRES-T3 S76 1F (NUM-N) 90,100,100 
FERES-T3 577 Cc : 

FIRES-T3 578 Cc READ ELEMENT CARD 

FIRPES-T3 579 c 

FIRES-T3 580 SO READ (NIN 30) RUMEKX CED KX C200 KXC3),KX(49_MT IPE, THK 
FIRES-T3 SAI IF (THK eEQe000) THK=1-0 
FIFES-T3 582 1F (€KUM.GTe-NEL20) GO TO 120 
FIRES-T3 583 IF (NeEGet) GO TO 110 
FIPES-T3 . 5A4 C 

FIRES-T3 5e5 Cc GENERATE LM ARRAY 

FIRES-T3 586 aC 

FIRES-T3 S87 100 LMC ALM-3)2LMCNLM-7) 41 
FIRES-T3 588A LYCNLM-2) =LM(NL¥-6) 41 
FIPES-T3 589 LMCNLM=1 )=LMONLM=-5) 41 
FIRES-1T3 590 LMCNLMD=LYCAKLM-4 D4] 
FIRES-T3 591 MMTYPE (N1) =MMTYPE(NI-21) 
FIRES-T3 592 THICK ON D=THICK (N-1) 
FIRES-T3 SS3 110 TF (CRUM-ND £209130,140 
FIRES-T3 594 Cc 

FIRES-T3 595 Cc ERROR IN INPUT CARD 
FIRES-T3 596 c 

FIRES-T3 597 120 WRITE (NOUT »460) NUMeKXC1) 9 KXO2) KXC 3) oKXC ADO MIITPE op THK 
FIPES-T3 SQA stor 

FIRES-T3 $399 Cc 

FIRES-T3 660C 139 LMCRLN—-3)D=KXO1) 

FIRES-T3 603 LMC NLM—2) 2KXO 2) 

FIRES-T2 602 LMC RLM=2 =KXO3)D 

FIRES-T2 603 LY¥CRLM) =kKxX( A) 

FIPES-T3 G04 MMT VEE (N DPEMTIPE 

FIRt S-T3 695 THICK (A D=THK 

FIRFS-T3 604 C 


C-10 


EIeES=T3 
FUrES-TIJ 
PIRES-T3 
FIPES-T3 
FIRES-T2 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIPES-T3 
FIRES-TI 
FIRES-TS 
FIRE S-1T3 
FIRES-T3 
Frees-tT3 
FIrPFS-TI 
F IRES-T3 
FIRE S-1T3 
F FRES-T3 
TIRES-13 
FIRES-T3 
FIRES-T3 
FIOSFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FIRPES-T3 
F IPE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIrPES-T3 
FIRES-T? 
FIRE S-T24 
f TRES-T3 
FIMES-T3 
FIRFS-T3 
FIPES-T3 
F TRE S-T3 
FIPES-T3 
FIRes-T3 
FIRES-T3 
FIRES-T3 
FIRE S-13 
FYIQES-T3 
FIPES-T3 
F&F IPE S-T3 
FIPES-T 8 
FIRE S-T3 
&TRES-T3 
FIFES-T3 
FIPES-T2 
FIRES -T 4 
FTers-T3 
FIRES-T3 
§ TPE S-T3 
Fy S75 
FIOFS-T3 
Tee S-73 


607 
608 
609 
610 
€11 
612 
613 
614 
615 
616 
617 
618 
619 


- 620 


621 
62? 
6423 
624 
625 
62€ 
o?7 
628 
629 
630 
€271 
632 
633 
6124 
635 
G2€ 
637 
638 
639 
640 
641 
642 
643 
aa 
G45 
€4€E 
647 
6448 
649 
6S0 
és1 
652 
653 
654 
655 
Laie 
4S7 
65A 
659 
660 
6€1 
HA? 
©63 
O64 
605 
AFF 
067 
648 


fa) 


AANADN “y 


AaA A 


aan 


140 


150 
160 


“170 


180 


190 


OUTPLT 


WRITE (NOUT¢490) Not ME RLM—3) pL MC RLM—-27) oLYOCNLM—-2 DP pLMC RLM), MMTYPE CRI 


be THICK(N)D 
DFTERMINE BANDWIDTH AND STORE IF MAXIMUM 


ON t6C L=154 
L=L¥(RALM-A4L D 

DO 160 M=1,4 
J=ULM(NL M-4 6M )-1 4) 

IF (MEAND-J) 150,160,160 
MHAND=J 

CONT LAUF 

CORTEAUE 


TH RE Ee ORI Met N Sti OTN Ae (2 e fe i fSa Gs ap 8 


IF {NEL JO6ON-0) GN TO 350 
ReEWIAD 6 
NULM=24NELID44*NEL 219 

KUM=0 

WRITE (NCUT »390) NELZO 
WRITE (NGUT,410) 

00 340 AK=l ,NELZC 
NI=N4tNEL 1D4+ NEL 2D 

AL M=*ALM¥48B 
TF (RUM-N)P 190 6200-700 
RF AC ELEMENT CAKD 


READ (NIN, 44C) NUM, (KX( TE) 9 L=1e8) MTIPE 
1F (KUMeCGTeRELIDD GC TO 230 
IF (NeEQ-1) GN TO 220 


GENERATF LM APRAY FOR MISSING ELEMENTS 


CCATEI AUF 

on 200 T=1,8 

LCMCNL WM -A4 1 =ELYMCNLM-1641)41 
MMTYPECNID =MMTVFE (ARI =] ) 

IF (RUM=-N) 230,740, 7260 


ERROR TN INPUT CARDS 


wWeI TE (NOUT,»4709 NUM CKKCED oe Late Bde MFIPE 
sSToP 


CONT TNUL 

Nc 250 =1,8 
LM(ALM-R4Od ) HKXCT) 
MMATYPFE (NI D=MT IPE 
QUTPLT 
WHETE CNGUT eS 00) Ne (tL MEREM-9O TD e Tal e306 YMTVEE (ND) 


CE TERMING BANDWIDTH AND SECRI PR MAX TMA 


pu FAO Lat, 4 


C-11 


FIPES-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FERES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FYIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FTRES-T3 
FIRES-T3 
FYIRES-T3 
FIRES-1T3 
FIRES-T3 
FIPCS-T3 
FTRES=-T2 
_Frens-T3 
FIRKES-T3 
FIRES-T3 


€és 
670 
671 
672 
673 
E74 
675 
676 
677 
678 
679 
680 
681 
682 
683 
6E4 
685 
686 
6E7 
688 
6e9 
690 
691 
692 
693 
694 
695 
696 
697 
698 
6939 
700 
701 
702 
703 
704 
70s 
706 
707 
70a 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
25 
7T26 
727 
Ta 
729 
730 


annA 


anaanna 


AANA 


270 
280 


290 


310 


340 


(al 
in 
°o 


360 
37C 
4HO 
390 
ecc 


1=LW¥CRLM—B4L) 
0Q 280 M=1,8 
J=LUCALM—-84M)— 
TF (wEAND-J) 
MBAND=J5 
CONTIARUVE 


141 


270-280 ,280 


CALCULATE ELEMENT DATA NEEDED LATER IN ANALYSIS AND STCRE CA 


TAPE 6 


00 290 f=1,8 
J=LM(NULM—84I1) 
XX CPD=xXC5) 
vv(T)zv¢ J) 
ZZCUd=205) 
vOL=Ce 

ON 320 Tilk=1,2 
DO 330 JJJ=1,2 
00 330 KKK=1,2 
SE=POSCTIIID 
TE=PCS( JIS) 
VUE=PCSEKKK) 

0G 300 1=1,8 


PSTUCT) SC Le +SERSICEIVIFCL oe +TE*T ICTS (§ -FUE*UIC IIIB. 
OPSTUCTe LI=SICTIA*CL FTE RTECT) DC DeHVEXUT( TI 7E~ 
DPSTUlC] ,TI=TICIVRCL -+SE*S ICL) ICR SUE*UICIII7ZE. 
OPSTLCA ST I=ULCT IFC Let SERSIC I) ORCL +TEXTICIIIZ8~ 


DO 310 I=1,3 
CJAC(T 91) =06 
CIAC(Te2)=06 
CJAC(T,3)=06 
00 310 J=1,8 


CIACC I, 1 V=CIACL IT, 1 P4DPSTUCT oI D*XXC I) 
CIACCT 92) =CIAC(T e224D0PSTUCT, JVFVV(I) 
CIAC( 1s SVZCIACC I,» ID4OPSTUCL »>II*®ZZ( J) 
CALL INVMAT (CSAC, DET Jp 3) 


vOlL =VOL ¢DE TJ 
00 320 1=1,3 
DO 320 J=1,8 
Bt I1,JI=O064 

DO 320 Kr1l,3 


BCT pJIHFRC TL »pIIFCJACCLE KI SNPSTUCK, JD 
WRITE (6) DETI,CPSTUCT Ig T=t AIC (BCI oS) oe J=1 oe Bd et =1 53) 


CONTIAUVE 
VOLUME (N)=VOL 
CCATIARVE 


PRINT THE WAXTMUM BANOWLOTH 


*WRETE (NOUT,S10) MRANN 


RETURBN 


FORMAT 
FORMAT 
EORMAT 
FCRMAT 
FURMAT 


{77720 


(77/20H 
(77/20K 
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(//5H ELWT.1Sh 


C775H ELMT,26H 


THE RPE ARE 
1 J 
THERE APE 
THERE ARE 
J J 


015.23H 
MAT »5Xe5H 
olSe7.sH 
0 15S, 2.5H 
K t 


1-0 tLEMENTS e e ° ° ) 
AREAS) 

?-0 ELEMFATS ¢« «© © « ? 
2-b LLEMENTS 0& © ce e« )D 
VAT, SXe2CH TREICKNESSZ ) 


FIRFS-T3 731 410 FURMAT (7/5tH ELMT,S0H I J K l W K Cc » WAT 
rIress-T3 732 1 7) 


FIRCS-T3 733 42C FORMAT (415,F10.0) 

FIPFS-T3 734 420 FORMAT (6I15,F10.0) 

FIPES-T3 735 440 FCRWAT (1015) 

FIRES-T3 736 450 FORMAT (/7/720H ERROR IN EL ENPUT 7/7415 6F 10.5) 
FIRES-T3 737 460 FURMAT (7/20t ERROR IN CL INPUT 7/615,F 1008) 
FIRES-T3 738 47C FORMAT (//20H ERROR IN EL ENPUT Z/20T5) 
FIRES-T3 739 480 FORMAT (4ISeF106.5) 

FIRES-T3 74C 460 FORMAT (6159F15-5) 

FIGES-T3 7A1 500 FORMAT (1015) 

FIRFS-T3 742 510 FORMAT (/7//,.31H 2 e e& MAXIMUM BANDWIDTH IS »14,6H © «© o? 
FIRES-T3 742 END = 

FIRPES-T3 744 SURAROUTINE INVMAT (AeDETJ»NOIM) 

FIPES-T2 745 Cc 

FIRES-T3 746 c 

FIFES-T3 7A7 C SUBROUTINE *INVMAT® INVERTS THE JSACODIAN MATRIX 
TIRES-T3 748 (qi 

FIRCS-T3 749 G 

FIRES-T3 750 OIMERSTOR AC3.3)0¢ COFTR(3,3) 

FIRES-T3 751 ¢ 

FIrTES-13 752 Cc 

FIPES-T3 753 1F (AKOLM.EQ.3) GG TO 20 

FIRES-T3 754 c 

FIRES-T3 755 c 2-0 JACORTAN 

FIRES-T3 756 Cc 

FIRES-T3% 757 DET I=ACL» LITAL2S], 22-AC 1, 2)FAC 2,1) 

FIRPES-T3 758 COFTRCL eV =AC2 2) 

FIRES-T3 759 COFTRU 1g 2)=-AC 201) 

FIRES-T3 780 COFTR(291 D=-ACL 2) 

FIRES-T3 761 COF TRI 2¢2d0=AC1 51? 

FIRES-T2) 762 00 10 f=te2 

FIPES-T3 763 00 10 J#1,2? 

FIRES-T3 764 10 ACT »JI=CUF TRIS eI) /NETI 

FIRES-13 765 FETURN 

FIRES-T3 7€6 C 

FIPFS-13 767 c 3-N JACOBIAN 

FIRFS-T2 7€8 C 

FIFES<-T3 769 20 OF TIZAC Ls LPE(ALC 2, 2dFAC Se SD-ACP 6 TIVEACS 92) V-“ACE oF DECALS ob DH AC Ye V)D-AC 
FIRES-T3 770 LA, TIAACT GL IIFHACH so BIFCAC 2, AY *AL 34 ZV-AL 2, 2VFAC Sy EdD 
FIRFS-T3 771 COFIRG DL oe LI=AC2Z eZ) FACS pBI-AC 2A oe TITAS C2? 
FIPFES-T3 772 COFTRU De 2dVE-AC Se LIAL A, SIFAL 2, TPPAC 31D 
FIGES-T3 773 COF TROY 63) =AC Pet DFAL3 97 V—-AL 207 VYAC 391) 
FIPES-T3 774 COFTR C2, LP=-AC Le 2V*AC Sy 3D FAC Ls 32) FAC3 92) 

FILE S-T3 775 COFTH(2e2d=ACD oe LPAAC Se SIA~AC TL, BITAC 3,1) 
FURrCS-T3 776 COF IP (2 3V=H—ACL pL VEAL BS 2PVEACH o2IHAC ICID 
CUIRFS-T3 777 COFTRO Be LV=ALC Le 2VXAL [eo RI-ACL Vy A) ACP 92) 

FIRE S-T3 774 COE TPCT eSP=-ACL oe LIE AC2[e BPFACL op SPPALCZ SI? 
FIRES-T3 779 COF TRO Fe AV=AC De LIMALC ZS oP I-AC LAVACA SDD 
FIPFS-T3 780 OG 30 T=1 43 

FIPES-Ti 781 mh Ste Neos 

CUPES<-T3 0 7H? 3) ACTS JI=ZCCEIPCUZ,FDIZOF IS 

f1P1So-73 VF Mt TUBR 
“TLROCS-T3 724 t ND 
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FIRES-T3 785 : SUBRCUTINE MATRIAL (MATL »XVSeNSTCPE ) 


FIRES-T%3 786 Cc 
FIPFS-T3 797 c 
FIRES-T3 7AFf C SUBRCLTI RE *MATREAL*® INPUTS THE RECESSARY MATERIAL PROPERTIES. 
FIRES-T3 729 C THE VALUES OF THESE PROPERTIES ARE EITHER IN THE FCRM CF A 
FIRES-T3 799 C CONSTANT CR A LINEARTZED FUNCTION OF TEMPERATUFE © 
FIRCS-¥3 791 c NSTORE CONTAINS THE STARTING LOCATICN FOR STORING THF Lt INCARPEZEG 
FIRPES-T3 792 C MATERTAL PROPERTY FUNCTIONS AND ALSO RFTURNS THE REQUIRED STURAGE 
FIPES-T3 7563 G FGR xXYS TC FIFES-T3.6 A 
FIRES-T3 794 Cc 
FIRPES-1T3 795 c 
FIRFS-T3 796 CUMMCN /CONTROLZ ITETLE (6). TREAD (80 ) ep KINe ACUT » NPUNCH, NUMNP,NEL ID oN 
FIPES-T3 797 TEL 2D, NEL 3D, NUMEL ¢ MRAND »NMAT NERC ID , NF BC 2!) eNFUC 30 pNECMAT eNBCTYP 
FIRES-T3 758A OUMENSICA MATL(E), XYS(18) 
FIPES-T3 799 NSTORE =1 
FIFES-T3 800 Cc 
FIPFES-T3 aol G OUTELT PAGE HEACING 
FIRFS-T3 BO2 C 
FIRES-T3 @03 WRITE (€ACUT,20) 
FIRES-T3 304 WRITE (NUUT >, 30) 
FURFS-T3 805 WRITE (NOUT,40) ITEITLE 
FIRES-T3 806 WRITE (NCUT,»SOd NMAT 
FIRFS-T3 897 WRITE (NOUT,30) 
FIFES-T2 9808 Cc 
FIRES-T3 809 ON 1C M=ReNMAT 
FIRES-T3 sto WPITE (NUUT,60) ¥ 
FIRES-T3 B81 Cc 
FIRES-T3 812 Cc READ IN CONTROL VARIABLES. IF INTEGER VARTAPLE IS ZERC THAN 
FIPES-T3 813 Cc WATERTAL VALUE IS CONSTANT, IF TATEGER CONSTANT IS GREATER THAN 
FINES-T3 314 Cc ? TREN IT 1S THE NUMGER UF FCINTS REQUIRED TG DESCRI@E THE 
FIRPES-T3 a1S C LINEARTZ7ED TEMPERATURE DEPENDENT FUNCTION 
FIPES-T3 @l1eé C 
FIRFS-T3 817 READ (NIN~ 70) MK eMCPoMO 
FIRES-T3 818 ¥S=(¥-1)t6 
FIRES-T3 A19 C 
FIRES-T3 820 C INPUT CONDUCTIVITY DATA 
FIRES-T3 821 C 
FIRES-T3 822 WRITE (NOUT,.80) 
FIRES-T3 823 MATL (S41 D=NSTORE 
FIRES-T3 824 MA TLC MS4#2) =MK 
FIRES-T3 825 CALL MATIN (MK ,XYS(NSTORE )eXVS(NSTORE ¢MK De XVS(NSTGRE*MKEMKD D 
FIRES-T3 826 NS TORE =ASTORE +34 MK 
FIRES-T3 827 IF (MK .EQ.0) NSTORESNSTORE +1 
FIRES-T3 828 C j 
FIRES-T3 829 c INPUT SPECIFIC HEAT DATA 
FIRES-T3 830 Cc 
FIRES-T3Z e831 WRITE (CNCUT 90) 
FIURES-T3 832 MATL (MS43)=NSTORE 
FIRE S-T3 9833 MATL (¥S ¢a )=MCP 
FIRFS-T3 834 CALL MATEN (MCP eXVS(NSTORED pXYS(RSTGKE*MCP De XV¥S(NSTORE MCP OMCP DD 
FIRES-T3 835 NSTORE =ASTOPE 4 3#¥CP 
FIRES-T2 €36 TF (WCPLEGeO) ASTCRE=NSTCRE 41 
FIRES-T3 #837 C 
FIRPES-T3 838 C TNPUYT CEASITY DATA 
FIRES-T3 e29 ‘e 
FIPFS-T3 840 wette (NOUT,100) 
FIRES-T2 Aat MATL (S45) =NSTCRE 
FIRES-T3 842 MATL (MS46) =Mf) . 
FIFCS-T3 843 CALL MATIN (De XVS CNSTURE DA XVSONSTORT 400. XYSCNSTORE 44044) ) 
FEIPFS-TR 944 NSTORE =NSINFE ¢3*¥D 
“ FIPES-T3 845 If (MD eFQ20) NSTUPFENSTOUME @] 
TIFFS-T3 €46 C 
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FIPES-T3I 847 10 CONTINUE 


FIFES-T3 848 Cc * 

FIRES-T3 PAS FE TUBA 

FIRES-T3 850 Cc 

FIPES-T3 851 Cc 

FIPFS-T3 ate ZO FORMAT (1H6,5(7)) 

FIRES-T3 853 BO FORMAT (61H KRAERE ERE EER AKA RATER ERMA AHA EI KSEE ERD ENE KH ee 
FIRES-T3 e£4 Lttteeey 

FIPES-TS 85S 40 FORMAT (/5XSOHFIRES-T3 - FIRE RESPONSE OF STRUCTURES - THFFWAL,/ 
FIRE S-T3 8sé6 171% e6A10) 

FIRES-T3 657 £0 FORMAT (/5x%,43HTHERMAL FROPERTIES OF SYSTEM TO RE ANALYZFU,//55X_1 
FIPES-T3 858 TOHTHERE ARE ,13,.20H DIFFERENT MATERIALS, /) 

FIRES-T3 es9 60 FURMAT (7//7,26H ec © © « MATERIAL NUMAER .14,9H o 16) ene.) 
FIRES-T3 860 70 FORMAT (315) 

FIPFES-T3 861 80 FORMAT (//7X%,25% «© © « CONDUCTIVITY « « ev) 

FIRES=73 862 SO FORMAT (//7X926H « 6 ce SPECIFIC HEAT « © o) 

FIPES-T3 863 100 FORMAT (//7X%_20H «© ee « DENSITY © © oe) 

FIRPES-T2 BE4 END 

FIPES-T3 865 SUBRUUTTINE MATIN (Ke XoV,S) 

FIRES-T3 866 Cc 

FIRES-T3 FET c 

FIRES-T3 B68 c SUBRCUTINE *MATIN® INPUTS FOR FACH MATERIAL [TS TEMFERATURE - 
FIRES-T2 FES Cc ODEPERDERT PRCPERTIES, CALCULATFS SLOPES. ANC PHINTS THE VLATA. 
FISPES-T3 870 Cc 

FIFES-T3 871 & 

FIRES-T3 B72 CCMMON /SCONTROLZ ITITLE (6) »TREAD(80 ) »NIN, NOUT »p NPUNCH» NUMNP,/NEL ICON 
fF IRPFS-T3 A773 TEL 2N,NEL 3D, NUMEL » MHAND »NMAT NERC 1D. NFBC2D eNFHC3ID,NRBCMAT -NUCTYP 
FIRES-T3 B74 DUMENSION XC1D, VOlLde SCI) 

FIRES-T3 875 Cc 

FIRES-T3 876 IF (kK eNE-O) GO TO 10 

FIRES-T3 877 Cc 

FIRFS-T3 878 Cc INPUT CONSTANT VALUF FUNCTION 

FIRES-T]3 879 Cc 

FIRES-T3 880 READ CNTN,SO) XC1) 

FIRES-T3 881 WRITE (NCUT,60) xd 

FIRES-T3 AB] RE TLFA 

FIRES-T3 883 Cc 

FIRES-13 Pea c INPUT VARIABLE VALUE FUACT TION 

FIRES-T3 ess Cc 

FIPes-T3 8e6 10 CCOANTIAUVE 

FIPES-T3 GE7 Cc 

FIPES-T3 888 G CHECK K FOR AN ALLOWAPLE NUMAFR CF POINTS TAR MATERIAL FURCTICKN 
FIRE S-T13 GES G 

FIPES-T3 890 IF (Ke Qe LeOReKeLT2-0) GO TN 40 

© {RFS-T3 891 RE AC (NIN. 5OD (XCOe VOL fHt kd 

fF IRES-T3 aQI2 W=K-] 

FIRES-T3 a93 c 

FIRE S-T3 RA4 Cc DOCTERMING THE SLCELS OF TEE LINFAR SEGMENTS UF TRE MATERIAL 
FIPES—-T 3 RAS Cc FUNC TIONS 

fINFS-T3 8S6 Cc 

FIPES-T3 PQ7 NO 2C t=t_eM 

FIPES-TS 998 20 SCLIACVOT+LI“AVOTVIZOXCLe1I- KOT) 

FIPC S-T2 4390 WRITE (NCUT,7C) 

fF ITNES<-TI 900 Cc 

Fire s-T2 go ¢ QUTPUT THE FUARCTION TF Lf 15 VA LANES 

FIRE S-T3 GO? ¢ 

FIRES-T3 903 $i 20 L=dyt 
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FIFES-T3 904 WRITE (NGUT,8O) [eX( LI, vC1) 


FIRES-T3 905 WRITE (NOUT,99N) S(T) 

FIRES-T3 906 20 CONTINUE 

FIRES-1T3 907 WRITE (NCUT 80) KyX(KICVCK) 

FIRES-T3 908 RETURN 

FIRES-T3 969 Cc 

FIRES-T3 910 Cc 

FIRES-T3 911 40 WRITE (NOUT,.2100) K 

FIRES-T3 912 stop 

FIRES-T3 912 Cc 

FIRES-T3 914 Cc 

FIRES-T3 915 50 FCRWAT (8E10.0) 

FIRES-T3 916 60 FORMAT (7,39H MATFRIAL PARAMETER OF CONSTART VALUE ¢Giie3) 
FIRES-T3 917 ; 79 FORMAT (/5X,19HNODE TEMPERATURE » 6X» SHVAL UE, 7X» SHSLOPE » /) 
FIRES-T3 918A 20 FORMAT (199F 1301 6X »G1103) 

FIFES-T3 919 90 FORMAT (39X%,G11-3) 

FIRES-T3 920 100 FORMAT €/7/7/,44H  -------=----PROCGRAM TERMINAT ED------------ 07014H 
FIRES-T3 921 1 INPUT ERROR. 4,23H CONTROL CORSTANT [S elf5Se22H AND IT MUST FE F 
FIRES-T3 922 2ITHER 9/4 e34H © OR GREATER TFAN OR EQUAL TC 2) 

FIRES-T3 923 END 

FIRES-T3 924 FUNCTION VMAT (Ke Xo Vo Sp Te NAME) 

FIRES-T3 925 Cc 

FIRES-T3 926 Cc 

FIRES-173 927 Cc FURCTION *VMAT* CALCULATES TRE VALUE OF THF TEMPERATURE-DEPENDENT 
FIRES-T3 928 Cc VARIABLES REQUIRED IN THE THERMAL ANALYSIS 

FIRES-T3 929 Cc 

FIRES-T3 930 c 

FIRES-T3 931 COMMOR /CONTROL/ ITITLEC €) » FREAD( 80) »NI Ne NOUT pAPURCH, NUMNF,NELIC,N 
FIRES-T3 932 1EL2D, REL3De NUMEL » MBAND, NMAT »NFBC 10, NFBC 20, NFBC 30 ,NBCMAT NBC TYP 
FIRES-T3 933 DIMENSION XC1D,5 VOID, SCL) 

FIPES-T3 934 (e 

FIRES-T3 935 IF (KeAKF20) GO TC 10 

FIRES-T3 936 VMAT=xC 1) 

FIRES-T3 937 RETURN 

FIRES-T3 928 c 

FIRES-T3 939 10 1=0 

FIRES-T3 940 20 I=141 

FIRES-T3 941 IF (eGTeK) GO TO 50 

FIPES-T3 942 IF (T=XCE)) 40,30, 20 

FIRES-T3 943 2C VMAT=YC1) 

FICES-T3 944 RETURN 

FIRES-=T3 Sas c 

FIRES-T3 946 40 IF (1eEO0.1) GO TO 50 

FIRES-T3 947 VMATZYC I-10 4S (1-108 (T-XC I-19) 

FIRES-T3 94a RE TURA 

FIFES-T3 9a9 C 

FIRES-13 95C Cc 

FIRES-T3 951 EO WRITE (NOUT9GO) NAME o Te XC 1) ox CK) 

FIPES-13 952 stor 

FIPES-T3 953 (e. 

FIFES-T3 954 Cc 

FIRES-13 955 c 

€ TRES-T3 956 GEC FURMAT (747774 948H ---- eee eee FROCGRAM TEERMEINATLOE --~- eee --- 07 
FIRPFS-T3 957 150H BCUNDS OF CURVE WDESCRIPING MATER TAL PARAMETER eAL10-1SH HAVE 
_FIRES-T3 Q5A 2 REFER LXCEENED » 4-273 THRE TEMPERATURE WAS ,FI04«3,20H TRE LOWEF Ft 
FIPES-T3 959 SUND TS oF 10¢2,240H AND THE UPPFR ePCURD TS oF 106062) 

FIRES=-T2 9€0 END 
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FIRES-T3 
FIFES-T3 
‘FIPES-T2 
FIRPES-T3 
FLRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRPRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
fF IRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
F [RES-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
F fRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FLRES-T3 
FIRES-T3 
fF IRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRE S-T3 
r IRES-T3 
rIRFS-T3 
FIRES-T2 
FIRES-T3 
FIRES-T2 
© ITRES-T3 
‘FIPFS-T3 
FIRLES-T3 
FIRES-T3 


S61 
962 
Sé3 
964 
S65 

"SEE 
967 
S68 
969 
970 

o71 
972 
973 
974 
975 
976 
977 
974 
979 
980 
Sei 
gR2 
983 
984 
985 
S&6 
987 
988 
989 
990 
991 
992 
993 
994 
995 
$96 
997 
998 
999 


1000. 


1001 
1002 
1003 
1004 
1005 
10064 
1007 
10038 
1c09 
1010 
oll 
1012 
101% 
1014 
1015 
Cie 
1017 
10148 
1019 
1020 
102et 
1022 


NANnNANRANA 


ana 


Aan ANANDNANAAANADNANAANnDNDNANDNA 


ALAS A 
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SURFCUTT RE CCNVERG (NTOTAL)D 


SUBRCLTINE *CONVERG* INPUTS TRE CCNVERGENCE CRITERIA CCATROLL ING 
THE NATURE OF THE THERMAL ANALYSISe THF PROGRAM CONTAINS THE 

THE CAPABILITIES FCR FTERATIVE SCLUT IONS OFALIANG WITH THE ENTIFE 
SYSTEM ANO/OR THE FIPE BOUNDARY CONDITIONS 


COMPMCN /CONTROL/ ITITLE (6), IREAD( 80) pNINeNOUT »NPUNCH »RUMNP ,NELID yh 
1EL 2D » REL 3D» NUMEL », MFRAND »pNMAT »NFECID, NF BC2NeNFBC3IDO»e NECMAT »pNUCT YP 
COMMON /CONRG/ NCONV >) CONV eRE TA» NCONU pCONU, ALPHA 


OUTPLT PAGE HEADING 
BRITE (NOUT 20) 
WETTE (NOUT,30) 
WRITE (NOUT,.40) ITITLE 
WRITE (NOUT,»SO) 
WRITE (NCUT, 30) 
WRITE (ACUT ,60) 
CONVEFGENCE DETERMINEO WHEN 
2Pae\S(TCPI-TCL-1TdI7TCLTI+TCI-2) eLESS THAN. CUNV Cre CONU 


ANO IF CONVERGENCE IS NOT ACHIEVEO THE NEXT ESTIMATE CF THE 
SYSTEMS TEMPERATURES 1S OBTAINEO THROUGH 


TCT41) = TCT) + BETA (OR ALPHA) *(T01T)-TCI-10) 


WHERE SYSTEM FIRE BC 
CRITERIA CRITERIA 
NCONU NCONV - NUMBER OF PERMISSIALE 
ITERATIONSLO—IF PARTICULAR 
ITERATICOKR TS ACT CESTFEC) 
CONU COARV - PFPMISSIALE RELATIVE ERROR 
ALPHA CETA - OVER RELAXATION FACTOR 


ITAKPUT CCNVERGENCE CRITERIA 


READ (NINe70) NCONV,CONV, GETA,NCONU, CON, Al_ PHA 
If (NCONUeEQG-0) GO 10 10 


OUTFLT SYSTEM CCAVERGENCE CFITERIA 


WHITE (NOUT,.8O) CONUspNCONU, ALPHA 
CONTINUE 


OULTFLT FIRE ACURNDARY CONOITICA CCNVERGENCFE CRITERIA 
WRITE (NOUT.9O) CCNV,NCUNV efRETA 

OIVICE PERMISSALE FPROR BY Twe 

CONV=CONV702590 


CCRU=CCNUF0 250 


SIMRAGE FECUTREMEAT FCR FLARK CONMON 195 NOW PE INTL O 
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FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 


FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FLRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FINES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T2 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 


-~ &TPES=T3 


FIPFS-T3 
FIRE S-T3 


1o23 
1024 
1025 
1026 
1027 
102A 
ic29 
1930 
1031 
1022 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 


1046 
1047 
10498 
1C4G 
1050 
10S1 

1052 
1053 
10£4 
1055 
1056 
1ro0S7 
1058 
1059 
1060 
1061 

1062 
1063 
1064 
1065 
1066 
10€7 
1068 
10€9 
1070 
1072 

1072 
1073 
1074 
1075 
1075 
1077 
1078 
1079 


nanan 


FAL 


AAS AA AA ON 


WRITE €NCUT,100) ATCTAL, ATCT AL 
RETURN 


20 FORMAT (1HG6,S(7)) 

30 FORMAT (61H FEEREKKERKEARARHEEAAERHSSKESRK EKER AVE SHAK SE CS HSKISESH EEL SD 
1 *eee9y ) 

40 FORMAT (/5XSOPFIRES-T3 - FIRE RESPONSE OF STRUCTURES - THERMAL ,/ 
171% e6AR 0) 

50 FORMAT (/5X e46HINFORMATION FELEVANT TO THE ANALYSIS PROCEDURE »/) 

60 FCRWAT (////38H © © e e CONVERGENCE CRITERIA © © « oD 

70 FORMAT CIS, 2 10¢0elSe2F 1060) 

80 FCRWAT (7740H CONVERCENCE CRITERIA FOR ENTIRE SYSTEM//,223H PER 
IMISSIBLE ERROR =9F 10057 934H MAXIMUM NUMBER OF ITERATIONS =e I1S7-e 


212H ALPHA = 5F10¢4%) 

SO FORWAT (/77,46HH CCRVERGENCE CRITERTA FOR BOUNDARY CONDITIONS//, 24H 
1 PERMISSIALE ERROR =-F10¢574,35H MAXIMUM ARUMBER OF ITERATIO 
2NS =ef5S,11h BETA =.F10¢4) 

100 FORMAT (47/7/,54H e ce e e STOFAGE REQUIREMENT FOR BLANK COMMON « oe 
hoe er 445X9 20HSIZE BLANK COMMON = gf 10-10H (COECIMAL) ,/23X_,5H= eC 
27,.8H (CCTAL)D) 

END 


SUBRCUTINE HEATFLO (Xo Ve ZeKODE sD eMAg Tig T2eT29L MMT YPE pGAREA, THICK 
Le MATL »pXVSoMAT pEXVSoLI pi Joi K oLL eo L MAT pLF TRE, ALIKE pLELEM, TEXU, EXVS, IE 
2h» IMATs VEL pQo TV oo AT vA » VOLUME o AP pe hUMF AC) 


SUBRCUTINE *HEATFLO*® IS TRE THERMAL ANALYSIS COATKCLLER 


COMMCN /CONTROLZ ITITLE (6), IFEAC (80 De NIN, NOUT »NPUNCH > NUMNP ,NEL 30 of 
" TEL 20 p NEL 3D p NUMEL » MRAND ¢ NMAT ,NFAC 10D, NFBC20 ,»NFBC30, NECMAT »pNABCT YP 

CCMMCN ZEXOTHS NINTIDeNINT2ZDeNINTIDONINT eNOINT 

COMPMCKR /CONRG/ ACONV, CONV», PET A, NCONU »CONUe? ALPHA : 

DIMENSION XC Udo VORIs ZEEde KOCNECL Ds CMC LD, MMTVFECI), LELEMCLD, w 
PATLODD » XVSCLD» MATCR ID, FXVSCE Ds LECT, LUC, CKC UD, CLO LD, LMATO 
Jide LFTRECIV» AL IKLC LD, OCI, TKIP BIL, ATKAD, ACTNPet de OCD, MA 
BCD» TECH, TACHI, TIACLD I, THICK( 2, BAREACH), LEXOCH)s EXVEC(Id, TE 
ALCL), EMATCR) » VELCI9», VOLUME (TD 

CIMENSION TFIRE (4) 


INITIALIZE THE Sv¥STEM 
tPizc 

te 2=C 

sotv=0.0 

DS=CeC 


IKPUT TNITFAL TIME STEP CARD 


WHERE 1A = CONTROL wert (STEP) 
MOT - SEQUERCE COUNTER - INETIAL VALUE 
Timt - SVSTEM CLOCK - I[KRITIAL VALUE 
TEMP = INDICATOR FOP INETIAL TEMPERATURE - TR NUON-ZERC 


THEN TAKER AS UNTEORM INITIAL TEMPERATURE OF SYSTEM 
JP = TOFNTTEITErP FOR CUNCHED CUTPUT 
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FI®esS-Ts roeo READ CRTRe370) TA,YCT es TIME,TEWP, JP 


FIPES-T3 1031 C 
FIRES-T3 10f2 c OCUTFLT HEADING FOR INITIAL TIME STEP 

FIRES-T3 1083 Cc 

FIRES-T3 1084 WRITE (NGUT, 280) 

FIPES-T2 10€5 WRETE €KCUT,390) 

FIRES-T3- 1086 WRITE (NOUT,400) ITTEILE 

EFIRES-T3 1087 Cc 

FIPES-T3 1088 1F (LTASNE-SHSTEP) GC TO 40 

FIPES-T3 1089 Cc 

FIRES-TI3 1090 WRITE (ARCUT,410) MNT, TIME 

FIRES-T3 1091 WRITE (NCUT,390) 

FIRES-T3 1092 C 

FIRFS-T32 10923 C INITIALIZE TEMPERATURES 

FIRES-T3 1094 Cc 

FIPES-T3 1C95 17 (TEWE.RKE~O2O) GC TO 10 

FIPES-T3 1096 PEAD (NIN, 420) (TCT) »f=1,>NUMNP) 

FIRES-T3 1097 GG TC 30 

FIRES-T3 1098 10 00 20 f=1,NUMNP 

FIRES-T3 1099 20 T(LS=TEMP 

FIRES-T3 1100 Cc 

FIRES-T3 L101 Cc OUTPUT INITIAL TEMPERATURES 

FURES-1T3 1102 Cc 

FIRFS-T3 1103 20 CALL PROUT (4 oT rAT oi MoT! ee MAT Ny ACO! D 

FIPES-T3 1104 ; Ga To 50 

FIPES-T3 1105 Cc 

FIRES-T3 1106 40 CONTINUE 

FIRES-1T3 1107 © Cc 

FIRES-T3 1108 Cc TERMINATE PROGRAM —- INITIAL TIME STEP CARD ERRUR 
FIRFS-T3 1109 Cc 

FIRES-T3 1110 WRITE (NCUT,430) TA MOT, TIME, TEMF,IP 

FIPES-T3 1110 sToP 

FIRES-13 #112 Cc 

FIRES-T3 1113 £0 CCNTIALE 

FIPCS-T3 1114 iC 

FIRES-T3 1115 C READ TIME STEP CARN 

FIRES-T3 1116 Cc WHERE IA — CONTROL WURD (STEP) 

FrRES-T3 1117 Cc NCT - SEQUENCE NUMMER 

FIRES-T3 1118 Cc OT = TIPE STEP IATERVAL 

FIRES-T3 1119 C TTOF — NUMBER OF NON-ZEPC TEMPLRATUFE UR FLOW -BeCe 
FIRES-T3 1120 Cc TFIRECT) - TEMPERATURE OF FIRE FOR CURRENT TIME STEP 
FIRES-T3 1121 c 1 CAN VARY EREM 1 TO 4 
FIRES-T3 1122 Cc Ii - PRINTED OUTPUT OPTION 

FIPFS-T3 1123 (e © - NO PRINTED CUTPLT 

FIPES-T3 1124 c 1 - QUTPUT NUDAL POINT TEMPERATURES 
FIR&S-T3 1125 Cc 2 - CUTPUT ELEMERT TEMPERATURES 
FIRES-T3 1126 Cc 3 - OUTPUT BOTH NOOAL AND ELEMENT TEMPERATURES 
FIPES-1T3 1127 Cc 12 - PUNCHED QUTPUT OPTION 

FIRES-T3 1128 Cc COUE SAME AS FOR PRINTED WATA 
FIPES-T3 1129 Cc 16 - DFRUGGING OUTPUT OPTION 

FIRES-T3 1130 Cc 17 — CHARGE OF FIRE SURFACE CLEMENTS UPTION 
FIRES-T3 1231 Cc 

FIRES-T3 1132 60 READ (NIN, 440) LASNDT SUT, ITOF e TF IKE CE) pTRERFOCZS) TERRE C2) e TEERL (A), 
FIPES-T3 0133 LP Lel2elHrt7 

FIRES-T3 1134 MAIN=C 

FIRES-T3 1125 WOT=MOT 41 

FIRES-T? 1136 C 

FIGES-13 1137 Cc CHECK SFOUFNCING NE TIME STF CARD 

FIRFS-TX 113° Cc 

FIPCS-T3 1139 Tf (NBT cEC MOT CAND FA cE.O CAHSTEDD GO TC 90 
FIRKES-T3 1140 C 

FIRES-T3 T1Al Cc PROGRAM TER MENATCD 16 SECUPRCIRG FRFECLE 
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FIRES-T3 1142 Cc 


FIRES-TZ 1143 WRITE {NOUT ,450) 

FIRES-T3 1144 70 BRITE (NOUT, 460) LTA,NOT,OT,ITTOF, TEIRECL Do TFIRE C2) eTFERE (3) »pTFIFF (4 
FIRES-T3 1145 Le TL »T2e 16, 17 

FIRES-T3 1146 STCF 

FIPES-T3 1147 60 wRITE (NOUT,470) 

FIRES-TIZ 1148 GO Tc 70 

FIPFES-T3 12149 Cc ; 

FLRES-T3 1150 Cc ESTAELISH TIME INTEPVAL OT 
FIRES-T3 11251 < ¢ 

FIRES-T3 1152 SO fF (OT) 10C,110,120 

FIRES-13 1153 1CO wRITE (NOUT,480) 

FIRES-T3 18154 RE TURN 

FIRES-T3 1155 Cc 

FIRES-TZ LISE 110 [F (DSeEO-0-0) GO TC 80 
FIRPES-T3 1157 or=o0S 

FIRES-T3 1158 Gc TC 130 

FIRES-T3 1159 120 OS=ODT 

FIRES-T3 1160 130 CONT IAVE 

FIRES-TI 11€1 Cc 

FIRES-T3 1162 TIME=TIME4DT 

ERE S—-T3 1LLés Cc 

FIRES-T3 1164 Cc OQUTPLT HEADING FOR TIVE STEP 
FIRES-T3 1165 c 

FIRES-T3 1L1€6 BRUTE CNCUT ,380) 

FIRPES-T3 1167 WRITE (NOUT,390) 

FIRES-T3 1168 WRITE (NCUT,400) ITITLE 
FIRES-T3 1169 WRITE CNOUT,490) NOTeTIME,OT 
FIRES-T3 1170 WRITE CNOUT,390) 

FIRES-T3 1271. WRETE (NUUT,SOO) TTCF 
FIRES-T3 1172 IF (NUMFBC.EQe0) GO TO 140 
FIRES-T3 1173 WRITE (NOUT*/SIO) CI,TFIRECTI), [= 1,4) 
FIRES-T3 1174 140 CONTINUE 

FIRES-T3 1175 OT 2=1 -/O0T 

FIRES-TI LI7E (e 

FIRES-TA 1177 Cc 

FIRES-T3 1178 (e AEGINA ENG oF SEV: S557 2b Pi TTERATION 
FIRES-T3 £179 \e 

FIPES-T3 1180 Cc 


FIRES-T3 12281 150 MATR=PAT AE} 


FIRES-T3 1182 G 

FIRES-T3 1183 c SAVE THE INITIALLY ASSUMEO TEMPERATURES IN VECTOR T1 

FIRES-T3 1184 c 

FIPES-T3 1185 O00 160 N=1,»NUMNP 

FIRES-T3 U1lPE 160 TICAIZTCR) 

FIRES-T3 1187 TF (CTGeNE CO) CALL PROUT Che ToAToL MoT of opMAILReACCNo It) 
FIRES-T3 1188 Cc 

FIFES-T3 1189 Cc FORM CONDLCTIVITY MATRIX ANDO STORE IN MATRIX Ay AND ALSO FURM 
FIRES-T3 1190 C THE FEAT CAPACITY MATRIX AND STORE IN VECTOR Q 

FIRES-T3 1161 Cc 

FIRES-T3 1192 CALL HCONDC CAT, AsNUMNP oMATL o XV¥S oT oO oL My MMTYPE » BARE Ae THICK eX eVeZyV 
FIRES-T3 1193 LOLUWE ) ' 

FIRES-T3 1194 (e 

FIfES-T3 1195 c INITPALTZE HEAT LONAND VECTOR 10 060 - VECTOR ts 

FIFES-T3 1196 Cc 

FIFES-T3 1197 00 87C L=1,NUMNP 

FIRES-T3 1198 170 H(T)I=C.0 

FIRES-13 1199 C 

FIRES-T3 1200 C ADD INTERNAL HEAT GFNFRATION TO VECTOE & 

FIRFS-T3 12C1 G 

FIRES-T3 1202 IF (NINTCEQL0) GO 1G #0 

FIFE S-T3 1203 CALL. CEXC (UMs TEL es IMAT, LOXU,EXVS pAT oMATL o VEL oMMIVEE 9S XYS, TIM ) 
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Let Ad RE! 
FIRES-T3 
FIPFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FLQES=73 
F IRES-T3 
FIFES-T3 
fF IRES-—T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
Eee ot 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-TS 
FIPES-T?2 
FIRES-T3 
FIRE S-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T2 
FIRES-T3 
FTRES-T3 
FIRES-T3 
FIPES-T3 
Slets=t3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
CIRES-13 
FIPFS-T3 
FIPES-T3 
FIRE S-T3 
EICES=T3 
EIveS= 73 
FIPES-T3 


12C4 
1205S 
1206 
1207 
1208 
1209 
1210 
1 ie | 
1212 
1213 
1214 
1215 
{216 
1217 
1218 
1216 
1220 
1221 
1222 
t223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1222 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
12473 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
t251 
1252 
1253 
1254 
1285S 
1256 
t257 
125A 
1259 
1260 
1261 
1262 
1263 
1264 
P2éEs 


io) aang AaANAaA 


fa) 


(a) 


nNaanan 


AAnaA 


aan AnNnDAN 


aan 


INPUT ANY NON-ZERO TEMPERATURE AND FLOW HCUNDARY CORDITONS 
ANO ADO THE RELATED TERMS TO MATRIX A AND VECTOR & 


1680 CALL KATEMPE (IT TOF ¢O0 KODE 8 yA, KUMRP, MAING T2,C) 


ADD CAPACITY TERMS TO CCROUCTIVITY MATRIX A 


OO 2CO N=? »NUMNP 
IF (KCOE(N) EQ e4HTEMP) GO TO 200 
TF (CCRID 190 5209,190 


190 AC(Ne lL DZACN, LD FQCNI*OT2? 
200 CONT ERUE 


TRIANGULARTIZE THE MOOIFIED CONDUCTIVITY MATRIX 
CALL MSYM (1¢B eMAeAeKRUMNF) 

1F (MATNeNECTY EC TC 220 

CALCULATE EFFECTIVE LOAC VECTOR € 


CALCULATE CAPACITY MATRIX CONTRIBUTION TO THE EFFECTIVE LCAD 
AND SAVE IN VECTOR 12 


oc 210 If=1 »NUMAP 
1F (KODF CTT) -EQ.4HTEMP) GO TO 21C€ 
T2CTIV=QC LT FTC TLY*OTS) 


210 CONTIAUE 
220 09 23¢ 1f=1yNUMNP 


IF (KCOECTI)-EQ-4HTFMP) GC TON 230 
BOLPYFRCIII+¢TACITY 


230 QCTID=ECI1) 


NCCA=0 
TF ({KRUMFECeEQ20) GO TO 260 


1F FIRE BOUNDARY CONOITION SUPFACE CONFIGURATICN IS TO Ce CrANCED 
ON THIS TIME STEP, INPUT THE NEW DATA 


ff (17-FQ-0) GO TO 250 
CALL FIREBC (Xe V¥,Z,KODE, BAREA, THICK eL ToL Sol Koll eL MAT OLE JRE oAE SKL ol 
1ELEM) 


REGIEINNING O F F Tea € Be Ce i F -& KR Agtke ®t (Cen 


240 CONTINUE 


CALCULATE THe HEAT FLI® RPELATFN TQ THE FIFE Bele 


ZEO0 CALL FIRE CLE eL Jol K ol t ol MAT SLETFE ,ATIKL oe MAT SEXY ST OTE IRE SPD 


NCON=NCON @1 


CALCULATE THE TEMPERATURES THeEOUCH HACK SUHRSTETUTICN 


cEO CALL MSYM €29R eMAGA NUMRE D 


TF CRUMP DC -£060) GC TO 280 
TF (NCONVeE O0Cd GO TO PHO 
TF CEGeNE CO) CALL PROUT CPe Te AT ol Mo TI eit oMALM Oo NCORGE LD 
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FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FTRES-T3 
FIRES-T3 
FIPES-T3 
FIRFES-T3 
FIRFS-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIRFES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIURES-T3 
FIRES-T3 
FY RES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FURE $—1¥3 
FIRPES-T3 
FIFES-T3 


1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
L277 
1278 
1279 
12690 
1281 
128? 
1263 
1284 
12é€5 
1286 
12937 
12eA 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
£305 
1306 
1307 
130A 
1309 
1310 
1311 
1312 
1343 
1314 
1325 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1322 
1324 
13°5 
1376 
1327 


anan 


aan 


aana 


an aaa 


Ac 


270 
2&0 
290 


3¢co 


320 


(od 
(a 
to} 


340 


350 


360 


27C 
380 


CHECK FOR CONVERGENCE OF FIRE ReCoe CYCLE AGAIAST FERMEISSIELE FRERCF 


DO 27C N=1l»NUMNF 
OxX=AES(A(N)-TOCND)D 
DYV=CCAVE ABS(B(ND TOAD D 
It (Ox-GT.D0Y) GO TO 300 
CONT TINUE 

DO 2SC N=l »NUMNE 

TUN J=ECN) 3 

Gc Te 320 


IF CCAVERGENCE NOT OBTAINED CHECK FOR POSSIBILITY OF EXCEEDING 
PERMISSTHLE NUMBER OF CYCLES FOF FIRE EeCe 


IF (RCONCGTeNCCAV) CALL PROUT (3eTyAToL Me TI > GB eMAINeNCON oI 1D 
ESTERATE NEW APPROXIMATION OF TEMPERATURES FUR FIRE €-.Co 


OO 210 JJ=1 »NUMNP 
OxzB(JJI-TC II) 

TC JI =6( JID+4BETARDX 
P(JII=EC( II) 

GO TC 240 


IF (ARCCRUCECLO) GC TO 360 
CHECK CCAVERGENCE OF SYSTEM CYCLE AGAINST PERMISSIBLE ERRCR 


ON 33C N=1l_»>NUMNP 
DKX=AES(TTCAI=-TICK)) 
OY2CONU*ABS( TINIFTICN) D 
le (CxeGTeCvY} GC TO 340 
CONTENCUE 

GO TO 3€0 


CHECK YO SEE IF NUMAER OF SYSTEM ITERATICNS HAS EXCEEDEC 
PERWITSSTBLE NUMFER OF ITERATIONS 


IF (MAIN eGTeNCONU) CALL PROUT (3oT AT ol Moll eH eMAT NO ACOH GES D 


‘ESTIMATE NEW AFFROXIMATICK CF SYSTEMS TEWFEFATURES 


OC 350 K=3 ¢NUPNE 
DX=T(INI-TAICN) 

TON =T(N) 4 ALPHAtDX 
Go TO 15C 

CONT TINUE 


CHECK FOR DESIRED OUTPUT 


TF CTPCNE CO) CALL PROUT (A oT y,AT oi Me TL oA eMATRyo NCONe Fl D 

IF (12 NE 0) CALt Pu0UT CLL eT 2eT pAT ye Xe VeZo TIME ge IPL IP] ol M, IP) 
NC =ACCHK-1 

NS=MAIN-1 

WRITE (NOUT.2530) NS 

BRITE (NOULT S20) NC 

GO TC 60 ; 


FORMAT (A&,T652FI100092X 943) 
FORMAT (13Ht.5(7)) 
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FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FIRES-T3 
FIPES-13 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIRES-TS 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
F 1PES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 


FIRES-T3 
EIRES-T3 
Ff IPFS-T3 
FIRES-13 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIRE S-T2 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRCS-T3 
FIRES-T3 
FIPES-13 
FIrFES-T3 
FIMES-T3 
FIRE S-T3 
FIPRES-T3 
FIPFS-T3 
rT IRES-T3 
FIRES-TA4 
FERES-13 
FIRES-T3 
FIPES-13 
FIRFES-T3 
FIRES-1T3 
FER S-13 
FIRES-T3 
FIPRS-T3 
FIRE S-13 


1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
123¢ 
1337 
1338 
99 
13490 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 


1353 
134 
1355 
13E€ 
1357 
1358 
1389 
1360 
1361 
tIE2 
1363 
13764 
1365 
13€6 
1367 
1368 
1369 
1370 
1371 
137? 
137% 
1374 
1375 
137€ 
1377 
1478 
1379 
13h9 
EAN | 
VIA? 
13°93 
1jIrA 


anannaa. 


DA aD 


ACA ALa 


390 FORMAT (61H COHRARAEETERREERA REESE MAREE A EH EERE RES ENE REY EE OT 
tee 4OR?”? 

400 FORMAT (/S5SXSOHFIRFS-T3 - FIRE RESPONSE OF STRUCTURES - THERMAL ,/ 
17IX,6EA10) 

410 FORMAT (/1X,27HINITIAL SEQUENCE AUMBER TS ef 4s2tH ANO INITTAL TIVE 

; 1 IS »FRe27) 

4Z0 FORMAT (70 4X,FG661)) 

430 FORMAT (5(7),69H - —- - — PROGRAM TERMINATED - ERROR IN INITIAL TIM 
le STEP CARD = 7 = ~oSF4IKy AG, 16, 2F10 e2 yp 2K ep ADD 

440 FORMAT (AGe1TGeFICeOel Se 4F106C 43) 

450 FORMAT (/77/,43H. TIME STEP CARD CUT OF SEQUFNCE — CARO NUce I &/_1 2H 
1 INPLT CARD) 

400 FORMAT (7/7,57H - - — -— PROGRAM TERMINATED - TIME STEP CARD WAS - 
t- - ~oF77IXpAS ep TOeFIOe2 oe 15 e4FI 067,415) 

470 FORMAT €7/7,30H NO TIME INTERVAL FSTABLISHEOD 

480 FORMAT (/7/77,19H PROBLEM COMPLETED) 

460 FORMAT (72xX,17HTEIME STEP RUMPRER 514,8H —- TIME op F7e3e1 3H - TIME STE 
1° .F7.32/7) 

S00 FORMAT (/75SX,SO0H NUMBER CF NON-ZERO FLOW OR TEMPERATURE CUNUITIONS, 
rs) 

510 FORMAT (/5X%.24H FIRE BOUNDARY CONDITION, 4¢77X, CHF ERE( »lt, 4H) = oF 
10. 352x)) 

520 FORMAT (15,32H Me. Coe ITERATIONS wBERE PERFORMED) 

530 FORMAT (/4/15,33H% SYSTEM ITEFATIONS WERE PERFORMED ) 
END 


SUBRGUTINE HCONOC CAT, AeNPoMATL oXVS oT pQeL Me MMT VPE »BARE Ag THICK 9 Xe Ve 
1Z, VOLUME) 


SUBRCUTINE *HCONDC*® FURMS CONCUCTIVITY AND HEAT CAPACITY MATRICES 


COMMON CONTROL Z ITITLE CO) STREANC BO) -RINZ ROUT -NUPUENCH,NUMNP,AELID oh 
1FL2Z2D0,RELID, AUMEL , ME AND, NW AT PREF BC ITD, NFHC2D,NE UC 3D_,NDCMAT ,NEC TYP 
DIMENSION ATC1), ACNE 1) > MATL CL De KVSELD» THEY, OCLRIe SlHeB), LMG 
P15 FSTUCH), HC3¢8), MMTVPE (C1), RAREACT) » THICKC AD, XO1D, VORI, 276 
2125 FCSC2)» SECO)» TEC4D > XXCADe VYC4) 6 DPSTUC2.4d, CIACC 3s 3de Vin 
3UME (1) 

DATA FCS/=-0 057735027, t0eS773ENPTS 

DATA SE—Leolerter-le/ 

DATA TIS -Leerleegtersle/d 


INETLEALTZE THE SYSTEMS CCNOUCTIVITY MATPIX TT 020 
AND THE SYSTEMS HEAT CAPACITY MATRIX TO O20 


DO 10 T=1»KUMNP 
10 QO(TI=0~ 
MO =M¥P AACE RUMARE 


No 2C F=1e¥"R 
20 A(T)=0.0 


GINS ES =F ORME EONS) LCs NS Ag 


TH (RFE TDSE QO) GE Th *.) 


C-23 


FIRES-T3 
FIRES-T3 
FIrRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRFES-T3 
Firpcs-13 
FIRES-TI3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FURES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FSRES-TS3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-—T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FILRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRFES-T3 
FIPES-T3 
FTePss 13 
FIRFES-T3 
FIRPES-1T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
_FIRPES-T3 
FIRiEs-T3 
+ IRES-T3 
FIRES=-13 


1385S 
13286 
13e7 
1388 
13e9 
1390 
1391 


1392 


1393 
1394 
1395 
1396 
1397 
1398 
1399 
1490 
1401 

1492 
1493 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 

1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 

1422 
1423 
1424 
1425 
1426 
1427 
142A 
1429 
1430 
1431 

1432 
1433 
1434 
1435 
14346 
1427 
1438 
1439 
1440 
1441 
1442 
1442 
1444 
1445 
1446 


AAA 


AAnADND 


4 


40 


60 


NUM=C 

DO 40 AK=1,NELID 

KLMZNL M42 

00 2C t=1,2 

00 30 J=1.2 

S(T »J=Ce0 

Tl=L¥ (ALM—1 ) 

KK=L&¥ (ALM) 

AA=KX( ST —xC KK) 

BE=VUTT VY CKK) 

CC=ZUT1)-Z0 KK) 

XL=SCRT CAA* AA+ FEF RB*CC#CC) 

ATOCADECeS®(TOCLID+TOCKK)DD 

TEMP=AaT(N)D 

MS=YNTYPE(ND 

MS=(MS—1) #E 

J=MATL(MS41) 

K=MATL(MS#2) 

COND=EVMAT (Rp XVS( IDG XVS( ItK) Oo XVS( J#K+K) » TEME » 1 OH KOT) ) 
=MATL (MS43) 

K=MATLOMS#¢4) 

SPHTEVMAT (Ke XV¥S(C I) XYS(CItK) oe XVS( SEK 4K De TEMP, 1 OH 
J=MATLIMS¢5) 

K=MATL (MS+#+6) 

DENS=VMAT(K oe XVS (JI) eXVYS(C JFK DO XVS( JAK 4K), TEMP, 1OH OCT) d 
S€C 1.1) ZRAREAC ADFCCND/XL 

S$(1,2)9=-S(1,1) 

S$€2,1) =S(1,2) 

SC2,zZ0=SCle1) 

OST CRE=SPHT#OENS®XL#®BAREACIN IJ 20¢ 


cP(T) ’ 


ADO ELEMENT CONDUCTIVITY ANO CAPACITY TO SYSTEM MATRICES 


QC Tl y=QC11)+OSTORE 

Q(KK D=G(KK) ¢CSTORE 

ACTE oLVSACT ESL D+SCT ot? 

JIZKK-TIF! 

TF CIIeGTOD ACTT es JIV=HACT I, SIDES (C192) 
JIJZI1-KK41 

TF (CSS eGT Od ACKK JI I=HAACKK, IJ DESC 1,29 
ACKK o> 12 SFACKK,194¢SC27 92) 

CONT INUE 


TW Cn-4 EPSON SST ON TAL EC EM EN 1S 


IF (NELZ0-6FEC20) GC TO 270 
NULM=2*NEL 1D 

ON 260 N=1,NEL 20 
N1=N#NELIO 

NLM=NLM44 

00 60 T=1,4 

00 60 J=14 

S(T.J)=0.0 

LLI=LYECNLM-3) 

LL 2=L M(NLM-2) 

LL 3d=LMCNUM—1) 

LL 4=L¥CNtLmM) 

ATCNT PHO C2A5SFC TILL IV F¢TCILL2V4¢TELL AVOTILL 4) dD 


TEST FGY ORIENTATION OF 2-D FLEMERT = X=V¥_ K=2_- CR YW7 PLANE 


c-24 


PIPES=-T3 
FIRES-T3 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIPES-T3 
FTJRES=T3 
FIRFES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 


FIPES-T3 


FIRES-13 
FIRES-T3 
FLPFS-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIPES-T3 
FIPES-T3 
FIPES-T3 
fF IRES-T3 
FIRES-13 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRFES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
rinres-T3 
FIRES-T3 
FIPRES-13 
FIRES-T3 
FIRES-T3 
FIPES-T3 
riRES-T3 
FIP S-T3 
FIRES-TA 
FURFS-T3 
FIPES-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-13 
FIRES-T3 


1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
14€0 
1961 
1462 
1463 
1464 
14€S 
14€6 
1467 
14¢@ 
1469 
147¢ 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1472 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
14.37 
14898 
1459 
14990 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
isot 
159? 
1503 
1504 
1s0%5 
150f 
15907 
108 


70 


80 


sc 


100 


150 


160 


170 


180 


190 


JO=L¥(NLM-3) 

ZZ72=Z( 50) 

00 7C 1=1,3 

J=LMCRULM—34T ) 
NZ=AES(Z7Z-Z( I) 

tF (0Ze¢GTe-0-00001) GN TO 90 
CONT INUE 

OC AO f=] 44 

J=LM(RLM—-44tT) 

XX CEQ=X05) 

YY(rpevs) 

GQ TO 160 

vVVYv=Y( 40) 

00 100 T=1.3 

J=L WC RLM-34T) 

DY =ABRS(CvYVv-Y(5)) 

1F (OVeGTeO-CUV0CI) GO TO t20 
CONTIAUVE 

DO 11C 1=1,4 


JEL M(NLM=-441) 


XXOD) =x yd 

vY(fd=Z709) 

GO ¥C 160 

xKxX=e( 50) 

OO 120 t=1,3 

J=LM(ALM—34T D 

OX=ABSCKXmM— KCI) S 
TF (O0XeG¥.0-00001% GU TO 150 
CONTINUE 

OG 140 f=1,4 

J=LM(RLM—44T) 

XXCTIHVCI) 

vv¥@d1)=Z2€9) 

GO TO 160 

WRITE (NOUT.370) N 

stone 

VOLzCeC 

O00 220 Ifl=1.2 

00 220 JJIJ=157 

SF=POSCTEIL) 

Te =PCS(JJJ) 

DU 170 I=1,4 

PSTUCTI=ACL ¢SF¥ESTCEIIRCL TEST EC Ls 4e 
OOSTCE De IT I=ASECE PRCT e+ TERTECTIIZA. 
OPSTUC2Z, TIHTICE#(LetSE*SI( 1746 
OU 180 12=t,2 

CIACTI,1)9=040 

CJAC(1E»2)=020 

DO 180 J=194% 

CIACTE, DISCIACC Le LIHOPSTUCT eVI*KXC I) 
CIJACCET eA dV FC IAC(T»AI*NESTULTLIIAVYY(I) 
CALL TANVMAT (CJAC ENETI, =“? 
VOL=VCL FUVET JF THEICKIN) 

OW 160 T=1,2 

Nn 190 J=1,4 

ACE »J) =9-0 

bO 190 K=1.2? 

NCE es JIAP CL» VIFCIACC TK IX UPSTU(K, ID 
ATT=Ce 

OO PANO T=1,4 

LC =UNM CRE M-441) 


C-25 


FIRES-T3 1509 200 ATTEATT#PSTUCL TIL) 


FIPES-T3 1510 TEMPZATT 
FIRES-T3 3511 SS=WHTYPECKY) 

FIRES-T3 1582 MS3(MS—1) 6 

FIPES-T3 1513 J=VATL (IMS 41) 

FIPES-TA 1518 K=MATLO(MS#+2) 

FIRES-T3 1515 COND=VMAT(K 9 XV¥SOJ) 9 XVSC IK) oe XVSCIFK+K Do TEMP of OH KOT) ) 
FIRES-T2 1516 J=MATLOMS43) jas 

FIPES-T3 1517 K=MATLOMS#44) 

FIRES-T3 1518 SPHT=VMAT (Kp XVS OI De XVSCI+K D OXVS( J4K OK Dy TEMP» 10H cP(T) » 
FIRES-T3 1519 J=MATLOMS#5) 

FIPES-T3 1520 K=MATL (MS46) 

FIRES-T3 1621 DEKRS=VMATO(K XY¥S CI) 9 XV¥SCIEK DO XVS CI4K 4K Dp TEMP. 10H O(T) ? 
FIRES-T3 1522 DE TCON=DE TJ ¥COND* THICK (ND 

FIRES-13 1523 DC 210 1=1,4 

FIPES-T3 1824 DO 210 J=14 

FIURES-T3 1525 DO 210 Kz1,2 

FIPES-T3 1526 210 SCT eJSI=SCE oJ) FDETCCA*E(K, TD PECK, ID 

FIRES-TS 1527 220 CONTINUE 

FIRES-T3 1528 OSTORE=DENS¥SPET*VOLS 4 « 

FIRES-T3 1529 Cc 

FIRPES-T3 1530 Cc ADM ELEMENT CAPACITY MATRIX TO SYSTEM CAPACITY MATRIX 
FIRES-T3 1531 Cc 

FIRES-T3 1532 DO 220 L=#1,4 

FIRES-T3 1533 1=L™(ALM-44L) 

FIFES-T3 1534 230 O(1)20( 1) #OSTORE 

FIPES-T3 1535 C 

FIRES-T3 153€ C ADD ELEMENT CCACUCTIVITY TO SYSTEM CONOUCTIVITY MATRIX 
FIRES-T3 1537 ae 

FIRES-T3 1538 DO 260 L=1,4 

FIRES-T3 1529 1=LMCNLM—440) 

FIPES-T3 1540 DO 250 M=1,4 

FIRES-T3 1541 J=LMCRLN—-44M)-T41 

FURES-T3 1642’ IF (J) 250.25C,240 

FIRES-T3 1543 240 ACT eo SIZACTe SDFS(L OM) 

FIRES-T3 1544 2£0 CONTIAUE 

FIRES-T3 1545 2€0 ‘CONTINUE 

FIRES-T3 1546 c 

FIPES-T3 1547 c 

FIRES-1T3 1548 c THREE-CIMENS TONAL ELErPENTS 
FIRES-T3 1549 c 

FIPES-T3 1550 Cc 

FIPES-T3 1581 270 IF (AEL3C-EQ.0) GO TC 360 

FIRES-T3 1552 REWIND 6 

FIPES-T3 1553 NL¥=2 9REL 1044*NEL 2D 

FIRES-T3 1554 DU 3SC N=1,NEL3N 

FIRES-T3 1555 N1=N4NEL 1O4NEL 20 

FIPES-1T3 I1S5£6 ALM=AL4B 

FIPES-T3 1557 DO 2€0 f=1,8 

FIRES-T3 1558 OG 280 J=1,8 

FIRES-T3 1855S 2E0 S(T »JP=0.0 

FIRES-T3 1560 LL L=LMONLM-7) 

FIRES-T3 1561 LL2=L*CNLM-6) 

FIRES-T3 1562 LUL2=LM(CNLM-5) 

FIRPES-T3 1563 LLO=LM¥(ALW-4) 

FIRES-T2 1564 LLSO=LMONLN-3) 

FSRES-T3 1565 (Lé6=L“CNLM-2) 

tIRES-13 1566 LL7=LMCNLM-1) 

FIRES-T3 1567 LLE=LMCNLM) 

FIPFS-T3 1568 ATONE P= oS 2SS( TILL ADFT CLL QDOTEUL DPSTCLL AD ETOLLSD OTOLLEDA TOLL 7VETOUL 
FITES-T3 1S5€S 18)) 

FIRES-T3 1570 DC 210 Ltf=1.2 


C-26 


. 


FIRES-T3 1571 DO 310 JJJ=1,2 


FIRES-T3 1572 OO 31C KKK=1,2 

FIRES-T3 1573 READ (6) DETI»(PSTUCT Do l=1 oO) e( CECT oJ) pe J=1-8) wl =1 53?) 
FIRES-T3 1&74 ATT=C. 

FIRES-T3 1575 OO 2S6C 1=1,8 

FIRES-T3 1576 L=LW(ALM-684T1) 

FIRES-T3 1577 250 ATT=ATTEFSTUCIIFT(L) 

FIPES-T3 157A TEMP=ATT 

FIRES-T3 1579 WS=NMTYPE(NE ) 

FIPES-T3 1580 MO=(MS—1)%*6 

FIRES-T3 1581 J=MATL(MS41) 

FIRES-T3 15882 K=MATL(MS4+2) 

FIRES-T3 1583 COND=VMAT(EK e X¥SCI) e XVSCI+K) 9p XVS( JHKEK) 9 TEM 91 OF K(T) ) 
FIRES-T3 16584 J="ATL(CMS#3) ; 

FIRES-T3 1585 K=MATL(MS44) 

FIRES-T3 1586 SPHT=VMAT (Ke XVSCIVEXVYS( SEK DXVS( J4K 4K), TEMP .LOH CPCT) ) 
FIRES-T3 1587 J=MATLOUMS+5) 

FIRES-T3 1588 K=MATLO(MS+6) . 

FIRES-T3 1589 DENS=VMAT(K gXYSCIDSXVSCI*K) -XVSCItK CK De TEMP, LOH oC T) d 
FIRES-T3 15990 NE TCON=D0E TI*FCOND 

FIPES-T3 1591 00 300 I=1,8 

FIRES-T3 1592 OO 300 J=1,8 

FIRES-T3 1593 OO 3CC K=1,23 

FIRES-T3 1594 300 SCL eJIHSCI,JI)4+DETCON*B(K, 1) *#h(K, I) 

FIRES-T3 1595 210 CONTIALE 

FIRES-T3 1596 VCL =VOLUME(N) 

FIRES-T3 1597 OSTOFE =DENS*SFHT* VOLS Bo 

FFRES-T3 1598 Cc 

FIPECS-T3 1599 Cc ADC ELEMENT CAPACITY MATRIX TO SYSTEM CAPACITY MATRIX 
FIRES-T3 1600 Cc 

FIRES-T3 1601 On 320 L=1,8 

FIRES-T3 1602 T=LW¥(RLMY-B84L) 

FIRES-T3 1603 220 OC f )=QCT D+ QSTORE 

FIRES-T3 1604 Cc 

FIRES-T3 1605 c ADO ELEMENT CONDUCTIVITY TO THE SYSTEMS CCNCUCTIVITY MATRIX ~ A 
FTRES-T3 1606 Cc 

FIRES-T3 1€07 DO 340 L=1,8 

FIRES-T3 1608 1T=LM(NLM—84L ) 

FIPFES-T3 1609 00 240 W=1,8 

FIRES-T3 1610. J=LMCRULM—24+M) -141 

CIPES-T3 1611t IF (J) 340,340,330 

FIPES-T3 1612 320 ACT eJIP=HACT pO tS (Loh? 

FIRES-T3 1613 240 CONTINUE 

FIRES-T3 1614 350 CONTIAUE 

FIRES-T3 1615 Cc 

FIRES-T3 1616 2€0 RETURN 

FIRES-13 1617 Cc 

FIPES-T3 1619 Cc 

FIFES-T3 1€19 370 FORMAT (/731H STOP-ERROR IN 2-C ELEMENT NO] elE,/2I0H ACT IN X-Vy, X 
FYIRES-T3 1670 1-2, CR Y-Z PLANE) 

FIPES-T3 1621 ENO 

FIPES-T3 1672 SLBRCULTINE HATEWP CITOF pO e KOIDE of oA NM eMAIROTT, I) 

FIPES-T3 1423 Cc 

FIPES-$T3 1674 Cc 

-FIPES-T3 1625 Cc SLOFCUTEAL *HATEMFe AFELICS Tet FIXLU TEVFFFATURE OR FLOW 
*TRES-T3 1676 C POUNE4PY COND ETTINNS 

FIPES-T3 1627 Cc 
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FIRES-T3 1628 = 


FIRES-T3 1629 COMMCN /SCONTROLZ ITETLE CE) p TREAN( BO) eNENg ROUT pKEURCH,AUMNFE RELIC oA 
FIPFES-T3 1630 1EL2D,KEL30, AUMEL » ME ARO, NM AT pNFAC ID, NFBC20-NF HC 3U pNBCMAT NAC TYP 
FIRES-T2 1631 OIMENSION DOC 1) 5 KNDECID» RELI» ACHP ST De FTCUD, wld 
FIRES-T3 1632 IF (WAITNeNEC1) GO TO 30 

FIRES-T2 1623 c 

FIRFES-T3 1634 Cc INITIAL EZE TEMPERATURE AND FLCW BeCe TO 020 
FIRES-T2 1635 Cc 

FIPFES-T3 1636 DU 1C T=2,NUMNP 

FIRES-T3 1637 10 DC1T)=00 

FIRES-T2 1638 Cc 

FIRES-T3 1639 1F (ITOFLEQ.-0) GO TO 20 

FIRES-13 1640 Cc 

FIRES-T3 1641 BRITE (NOUT,100) 

FIPFES-T3 1642 a 3 

FIPES-T3 1€43 G TRPUT RON-ZERC TEMPERATURE AKO FLOW BeCe 

FIPES-T3 1644 Cc 

FIRES-T3 1645 READ {NEIN,LI0) CICLI,FT CE), = 1, ITOF)D 

FIRES-T3 1646 BRITE (NOUT,.120) 

FIRES-T3 1647 c . 
FIRES-T2 1648 C GCUTPLT THE NON-ZERC BCURKDARY CONCITIONS AND STORE IN MATRIX D 
FIRES-T3 1649 Cc 

FIPES-T3 1650 OO 20 1=1,i3TOF 

FIRES-T3 1651 Tr=s(0) 

FIRES-T3 1652 OCLISFET CT) 

FIRES-T2 1€53 JJ=KCDE CTI) 

FIPES-T3 1654 WRITE (NOUT.130) Ti eJJ OCI) 

FIRES-T3 1655 20 CONTIAUE 

FIRES-T3 1656 Cc 

FIRES-T3 1657 30 DO 90 N=1»NUMNP 

FIRES-T2 1€¢€8 Cc 

FIRES-T3 1659 Cc MODIFY MATRIX A FOR FLOW BeCo 

FIRES-1T3 1660 C : 

FIRES-T3 1661 BUND =E(ND4O(N) 

FIRES-T3 1662 IF (KODEC(N) EO -4HFLGW) GO TO 90 

FIRES-T2 16€€3 te 

FIRES-T3 1664 Cc MODIFY A AND AB MATRIX FOR TEMPERATURE BeCe 

FIPES-T3 1665 Cc 

FIPES-T3 1666 DG @C M=2,MBANOD 

FIRES-T3 1667 K=N—-M4l 

FIRES-T2 16€8 IF (kK) S0.50,40 

FIPES-T3 1669 40 8(K)=B8(K )—-A(K 9M) *D(N) 

FIPES-T3 1679 A(K»™)=0.0 

FIRES-T3 1671 ©£O L=\4n-} 

FIPES-T3 1672 1F (NUMNP-L ) 70,6C,.6é0 

FIRES-T3 1673 60 BIL D=EC(LI-ACK,MdP*ED(N) 

FIRES-T3 1674 70 AUN»eMI=0-0 

FIPES-T3 1675 80 CGNTIAUE 

FIRES-T3 1676 ACNeol) =152-0 

FIFES-¥3 1677 AC(ND=CON)D 

FIRES-13 16780 SO CONTIALE 

FIFES-T3 1679 Cc 

FERES-T3 1680 FETURA 

FIRES-T3 16P1 C 

FIPES-T3 1682 C 

FIRE S-T23 16F3 1CO FCGRMAT (//5X%_,31tH VALUES CF TEMFERATURES OR FLUWS/IOX,2ZHFOR NOA-7FR 
FIPES-T3 16°74 10 ROULNDARY CONDITIONS) 

FIRES-T2% 1685 119 FORMAT (SCIS,F 10067)? 

FIRES-T3 16°6 120 FURMAT (7,.8H NONE ¢ 7X pS HT VPE ol OX pSHVALUE D 
FIRES-T3 1657 1290 FORMAT (38, 7X,A4,5XeF 1002) ; 


FIRES-T3 168% EKN 
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FIRES-T3 
fF IRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FUPFS-T3 
FIRES-T3 
FIRES-13 
FIRES-T2 
FIRES-T3 
FIRES-T3 
FIRES-1T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
r wRes-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
F IPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIPES-T3 
FLRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-1T3 
FIRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-TI 
FIRES-T3 
FIPFS-T3 
FIGFES-TY 
FIPFS-13 
FIRES-T3 
F{IrFes-13 
FIOErS-T3 
rIResS-TY 


1689 
1690 
1691 
1692 
1693 
1694 
1695 
169¢€ 
1697 
1693 
1699 
1700 
17C1 
1702 
1703 
17C4 
1705 
1704 
1707 
1708 
1709 
1710 
7it 
1712 
{713 
1714 
i715 
1716 
1717 
17186 
1719 
1720 
1721 

1722 
1723 
1724 
1725 
1726 
1727 
1728 
172s 
1730 
1731 

1722 
1733 
17324 
1735 
1736 
1737 
1738 
1739 
1740 
1741 

1742 
1743 
1744 
1745 
1746 
1747 
174#fh 
1749 
17€9 


NIOANAA 


a) 


fa) 


NanaaaAn 


ANNANNNA 


10 


40 


so 
€0 


70 


SUBRCULTINE MSYM (KKK »pByMAgA RP) 


SUBROUTINE *MSYM* FS AN CQUATION SOLVER 
BASEC CN A MOCIFIEO SYMSOL —- VARIARLE BANDWIOTH wIiTH ZEROS TR HAND 


CCMWCR ZCCNTRCLZ ITITLE (69, FFEAL(80),NIN,NOUT »NPUNCH »NUMNP ,NEL ID of 
LEL 20 »NEL 3D » NUMEL » MB AND - NMAT »NF AC ID, NFACZD ,-NE BCID, NACMAT »NBUCT VE 
OIMERSTON B(C1)—e MACITI, AC(NP et) 


NEQ=NUMNP 

GO TWA (10670) » KKK 

KLEE RRAKKERKAEAEREKKHEREKEHEESEARAEREEEHEHRAEHA RHA SHAH KKAERERE KE RE DED 
REDUCE MATRIX eccee A 

RHRHHPHPAR HELE KLARHAAKKHE HL EGKHARE ECAH AE EEROLKERAE SEE KEEKEREL EERE KEE 


NE QQ=NEQ-12 
OO 60 N=1,NEQQ 


V¥=¥RAKD 

QO 20 1=2.,*BANO 

IF (€AQCN»M) NE 202) GO TN 320 
V=Me-]h 

MA(N)=M 


T=N 

DO €C L=2_—M 

T= +1 

CC =A(UN pL ID ZACNo1DD 

{F (CCeEQe0-) GO TO SO 
J=0 

DD 40 K=l_,M 

J=J+1 

AUT pS) FACE» SI-CCXAIN KD 
ACN eL D=CC 

CONTERLF 

CONTINUE 

GC TC 120 


EHRASOSOHRHKHKSKERKFEA GAH ERKEAKACHEEL ERE ES EK yee ee ee Ee HS KH He 


REDUCE VECTORecece F& AND BACKSURSTITUTE 


ERERR AKT HEE RHEL AES HE EL EEK EL EREPECEREKO KEKE Ro KO REKE SRE HSL SL ew aL 


00 9C A=1 ,KECC 

cCc=A(N) 

IF (CCeEGeN-) GC TO YO 
M=MA(N)D 

1=N 

De AC L=2 Mv 

T=1¢1 

HOT IZL CL I-COPACN GL ) 
BOND SCCZA(KR oD) 

CONT IR UF 
VONEGI=EP ONE G)ZACKE G1) 


C-29 


FIRES-TS 
FTRES-T3 
FERES-T3 
FIFES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
BlGES=713 


FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIFFES-T3 
FIRCS-T3 
FIPES-T3 
FIRE S-1T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRPES-T3 
FIPES-T3 
FIRES<-T3 
FIRES-T3 
FYIRES-T3 
FIFES-T3 
FIRCS-T3 
ETFES<T3 
FIRE S-1T3 
FIPES-T3 
FIPES-T3 
FIRES-13 
FIGCES-T3 
FIRES-TR 


1751 
LzE2 
1753 
1754 
t7ss 
1756 
Aad 
1758 
17S9 
17€0 
1761 


1762 
1763 
1764 
17€S 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
17€0 
1761 
1782 
1783 
1784 
17es5 
1786 
1787 
17R4A 
1789 
1790 
1791 
1792 
1793 
1794 
1765 
1796 
1797 
1738 
1799 
1FOCc 
1801 
1802 
1803 
1804 
18cs 
1A06 
1807 


ANAANDA 


fa) 


fa) 


nqnangan 


NN=NEG 
OO 110 Kz=i,NECO 
NN=NN- 1 
M=NMA(NRND 
I=AN 
OO 1CO Ke2_mM 
T= +1 
100 BC NN) =AONN)—-ACNN 9K) *8HC1) 
1210 CONTIAVE 
120 RETURA 
END 


SURRCUTINE PROUT (K oT pAT oC Me T1- Be MAIN, NCON, 11) 


SUBRCLTTAE *PROUT*® PRINTS TEMFERATURE OISTRIBUT IONS 
€ BOTH NUDAL AND ELEMENT ) 


COMMON /CONTROL/ ITITLE( 696 TREAD( 80) »NIN SNOUT )NPLACH g NUMNP p NELID 9A 
LEL2AD0 pRELID, NUMEL ¢ MAR AND? AMAT »pNFAC 10, NFBC2D »NFGC3ID»NBCMAT »NAC TYP 
OUMENSTON TOLD», ATCDDs TACHI, ACLDe LMCI) 


GO TO €104920,30e40), K 
10 CONTINUE 
DERUGGING OUTPLT FOR TEMPEFATURES AT REGINNING CF SYSTEM CYCLE 


WRITE (NCUT,140) MATIN 
WRITE (NOUT,230) (NoT(N) »N=1,>NUMAP) 
FETUERR 


€0 CONT INUE 
OEBUGGING OUTPUT TEMPERATURES FOR FIRE ReCo CYCLE 


WRITE (NCUT.,I1S0) NCON 
WRITE (NOUT,230) (NeB(N) »N=1 > NUMRP) 
RETUFRA 


30 CONTI AVE 


OUTPUT DATA FOR NUMP WHEN PROCLEWM HAS NOT CCNVERGEOD AFTER 
PERMESSTELE NUMCEFR CF CYCLES 


WRITE (CNCUT,1G0) 

WRITE (NCUT,170) VMAIN,NCON 

wWPITTE (NOUT,180) 

WRETE (ACUT 6230) (N,TICNI op K=Le NUMAN) 
BRITE (NOUT,190) 

WREFE (€RCUT, 229) (Ne TIN) pN=1e RUMNP D 

WRETE (ACUT,200) 

WRTTE (NOUT,220) (Neoli(N) oN=2 oe NUMAP) 

SToe 


40 COATTRUF 


C-30 


FIRES-T3 1808 \e 

FIPES-T3 1809 c OUTPLT OF RESULTS FOR A TIME STEF 
FIRES-T3 1810 Cc 

FIRES-T3 1810 TE (LLeECeLeORC TI eEGe3) 50,60 
FIRES-T3 1812 £0 CONTINUE 

FIRES-T3 tA13 ( 

FIPES-T3 1614 (S OUTPLT NOOAL POINT TEMPERTURES 
FIRES-T3 1815 (€ 

FIRES-TI 1816 WRITE (ARCUT e210) 

FIRES-T3 19817 WRITE (NCUT,220) 

FIPES-T3 1818 WRITE (NCUT,.230) (CReTOCN) » N= 2» RUMNP) 
FIRES-T3 1819 €C CONTINUE 

FIRES-T3 1829 IF CTPeECe2 cORTLeFQe3) 7C,12C 
FIRES-T3 1821 ¢c 

FIRES-T3 1822 Cc OUTPUT ELEMENT TEMPERATURES 
FIRES-1T3 1823 Cc 

FIRES-T3 1824 Gc ONE-DIMENSIONAL ELEMENTS 
FIPES-T3 1875 © 

FIRES-T3 1026 70 IF (AELIO-EG.0) GC TO 90 
FIRES-T3 1827 NLM=C 

FIRES-T3 1828 WRITE (NCUT,240) 

FIRES-T3 1829 WRITE (NOUT,220) 

FIRES-T3 1830 00 8O N=1,NEL 10 

FIRES-T3 184?1 AL MEAL M42 

FIPES-T3 1832 CLI=L¥YCNLM-121) 

FIRES-T3 1833 LL2=L¥YC(NLM) 

FIRES-T3 1834 EO ATIN) FCoS*#( TILLID+ TILL) 
FIRES-T3 1835 WRETE (NOUT.~230) (NeATOND »N=1/NELID) 
FIRES-T3 103€ ¢ 

FIRES-T3 1837 C TWO-DIMENSIONAL ELEMENTS 
FIRES-T3 1638 Cc 

FIRES-T3 1839 SO IF (NEL?PD.-FEO.0? GO TO 110 
FIRFS-T3 1840 NUM=29NFLID 

FIRES-T3 1A41 WRITE (NCUT,.250) 

FLIRES-T3 1842 WRITE (NOUT, 220) 

FIPES-T3 18643. DO 100 N=1,NEL20 

FIRES-T3 1844 ALMSAL M44 

FIPES-T3 1845 CLI=LM(NLM-3) 

FIPES-T3 1846 LL2=LA&(RL¥-2) 

FIRES-T3 1847 LL I=L M(NLM—-1) 

FIPES-T3 1848 LLO=LWC(NLM) 

FIFES-T3 1849 100 ATCRENELID) “Oo 25*F( TILED IF+T(LL2] D+TC(LELID FT (LL 4) dD 
FIPES-T3 1850 WRITE (NOUT,230) (NeATCN*NELID) -R=1,NEL AD) 
FIRES-TS 1881 “uG 

FIRES-T3 1852 Cc THREE-DIMENSTONAL FLEMERTS 
FIRPES-T3 1853 Cc 

FIRES-T3 1854 110 TF (NEL3D-E O00) GO FO 130 
FIRES-T3 1855 NUL M= <2 ¥*NEL 1044*NEL 20 

FIRE S-T13 1866 WRITE (NCUT,260) 

FIRFS-T3 1857 BP ITE CNOUT »z220) 

FIPLS-T3 1858 DO 120 N=1,NEL IC 

FIRES-T3 1959 AL M=ALMFP 

FIFES-T3 1860 LLI=LM(NLM-7) 

FIRES-T3S 18641 LL? =LM(ALN-6) 

FIPES-T3 18642 LLI=LM(NLM-5) 

FITES-T3 1863 LLO=LM(ALM-4) 

FIRES-T2 1°64 LLSO=LMCONLM-7AD 

FIPES-T3 1465 Lt G=LMC(NUM-2) 

FIRE S-T3 1866 LUZ7=LeCRELMK5) 

“FIRFS-T3 1AE7 LL2=LMCNULM) 

FIPES-T3 186% NI=FRAIRELIN ENF 20 

FIPFS-T3 1AHES 1ZC ATIAPP HKD PS™ (CT CLEDIOVOLLAIEVCLE TIOTAULE AI ETULL EDIT (LL ED OT (El 7IOTC 


c-31 


FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIT S=T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-TI 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 


FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-TI 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRE S-T2 
FIPES-T3 
“FIGES-T3 
FIRES-T3 
FIRES-T3 


1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
18E2 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1°97 


1898 
13899 
1900 
1901 

1902 
1903 
1904 
1905S 
1906 
19C7? 
19086 
1909 
1910 
1911 

1912 
1913 
1914 
1915 
1916 
{917 
1918 
1919 
1920 
1921 

1922 
1923 
1924 
1925 
1926 


AANDANDANAA 


A 


1L9)) 
N2=NELIO+4¢NEL 2D 
WRITE (NOUT 7230) (ReATCNFN2 ) oh=1 pNELZDD 


‘1320 RETUFA 


140 FORMAT (/,62H NODAL PCINT TEMPERATURES AT BEGINNING OF SYSTEM CYC 
ILE NUMBER, 16/7) 

150 FORMAT (7,40 QAODAL POINT TEMPERATURE FUR 6eCeo CYCLE,IE7) 

160 FORMAT (77,20H PROGRAM TERMIRATED]42959H CCNVERGEACE AOT CBT AINEC 
1 IN KECUIRED NUMBER OF ITERATIONS) 

170 FORMAT (/7e3S5SH SYSTEM CYCLE »185,16H AND 8-Ce CYCLE »f5) 

180 FORMAT (//,33H SYSTEM NODAL POIAT TEMPERATURES) 

1S$0 FORWAT (77,53H NODAL FOINT TEMPERATURES AT BEGINNING OF BeCe CYCL 


1€) 

200 FORMAT (77,47H NODAL POINT TEMPERATURES AT END OF 8.C. CYCLE) 

210 FORMAT (7/54H --------- --- NODAL POINT TEMPERATURES -------------- 
1-7) 

220 FORMAT (71X,4415H N TEMP. )? 

230 FORMAT (4(169F902)) 

280 FORMAT (7/7,57H ~-------= ---=-- TEMPERATURE OF I-bD ELEWERTS -------- 
1----- ” 

2£0 FORMAT (//,ST7H —------------- TEMFERATURE CF 2-D ELEMENTS -------- 
1-----/) ; 

2€0 FORMAT (//7,57H -—------------- TEMFERATURE CF 3-C ELEMENTS -------- 
1-----7) 
END 


SUBROUTINE PUOUT CT igl2eTeAT eo Xo VoZo Ti ME TE ol O2 ol My IP) 


SUBROUTINE *PUOUT*® PUNCHES THE TEMPERATURE DISTRIBUTIONS THAT 
RESULT FROM THE ANALYSIS DORE TN THE PROGRAM. 

JP - IDENTIFIER TO BE USED IN LAST 8 CCLUMAS 

{Pi — CCUNTER FOR NODAL OATA CARDS PUNCHEU 

TP2 - COUNTER FOR ELEMENT DATA CARDS PUNCHKEC 


COMMGN /CONTROLZ ITITLEC 6) pe LREAD( 80) »NIN, ROUT pRPUNCH, AUMNE, NELICON 
LEL2D. KEL3Dy NUMEL » MB ANDO, NMAT »NFAC 10, NI'BC 2D, NFBC 3D pNGCMAT »N&C TYP 
DIMENSION TOTP, ATOCLD © XCLV» VEL» ZELPe LMC? 

INTEGER ELEM : 

NP=KELACH 


TF (£2cECol OR IT2eE003) 194100 
PUNCHING NODAL DATA 


10 BRITE (NOUT.240) 
ACNE=4HNODE 
TF (JF eFC. 3H » GO TG 20 
ENCODE (4,250eNONF) JP 

20 CUCATINUE 
1F @TP1eNE-0O) GC TM 60 


NODAL CCCRDPINATES PUNCHED TEE FURST TIMP TIMPEFRF ATURE DATA IS 
FEQUFSTEF 


C-32 


FIPFS-T3 1927 Cc 


FIRES-T3 1928 TFi=aTPley 

FIRES-T3 1929 WRITE (NP,260) ITITLE NODE ,IP 1 
FIRES-T2 1930 TFL=TeF1 42 

FIRES-T3 1931 WRITE (NP,»270) NOODE,IPL 

FIPES-T3 1932 : IP1=1F 141 

FIRES-T3 1933 WRITE (NE,2?80) NOOFL,ITPI 

FIRES-T3 1934 Ni=1 

FIRES-T3 19235 30 NZ=A1 #2 ec 
FIRGES-TZ 193€ IPL=IPi+1 

FIPFES-T3 1937 {F (RUWNP-N2?) 50, 40,40 

FIRES-T3 1938 40 WRITE (NE G290) CE oeXCT IV SVCT) oe ZC39,f=NE>NOVeNCDE, IP 2 
FIPES-T3 1939 IF (KRZeEQeNUMNP) GN TO 60 

FIRES-T3 1940 KRL=A27 41 

FIRES-T3 1941 GU TO 20 

FIRPES-T3 1942 SO N2=NUMNB 

FIPES-T3 1943 R=NUMARE4 I -NI 

FIRES-T3 1944 M=72-N%22 

FIRES-T3 15945 ERCCDE (30,300,L) Nom 

FIRES-T3 1946 WRITE (NP LD Che XCEL e VET) ZO Pe f=NI pNZ) oNCCE, IPI 
FIPFS-T3 1947 Cc 

FIRES-T3 194A (= PUNCHEAG AOOAL FCINT TEMPERATURES 
FIRES-T3 1949 C 

FIPES-T32 1950 6O IFL=UF1 +1 

FIRES-T3 1951 BVITE (NP,3LO) TIME eNUMAP,NCDE TFL 
FIRES-T3 195? Ni=zl 

FIRES-T3 1952 7C AZ=A146 

FIRES-T3 1954 IPL=IP1¢1 e 

FIPES=T3. 1955 TF (RUYNP-N2) 90,80,80 

FIRES-T3 1956 EO BRITE (NP,320) CIs TCl) pT =N1 pK2) PRCHNE, TEI 
FIPES-T3 1957 IF (N2.EQeNUMNFP) GU TO 100 

FIRES-T3 1S6§f Al =A2¢1 

FIRES-T3 1959 GO To 70 

FIRES-T3 1960 SO AR2=RUKMKE 

FIRES-T3 1961 N=NUMNPFI1-NI 

FIRFS-T3 1962 M=72-N2#10 

FIPES-TI3 159€3 ENRCCDE (30,3230,t1) RoM 

FIRES-T3 1964 WRITE (NPL) CEe TCI oT =Nl oN2) eNNOE pI) 
FIRES-T3 1965 1CO JF CEPA eFCo® eOReI7AeFN23) 110,220 
FIRES-T3 1966. Cc 

FIFELS-T3 1967 Cc PUNCHING ELEMENT DATA 

FIRtES-T3 1¢CGA c. 

FIFES-T3 1969 110 WRITE (NOUT,340) 

FIFFS-T2 1970 te CIF22-NE-0) GO YN 1.30 

FIFES-T3 1971 ELEM= 4HELEM 

FIPFS-T3 1972 IF (IP CEQO.3H ’ GO TO 1270 

FIPIS-T3 1673 ENCCODE (4,350,FLEM) JP 

FIPES-T3 1974 120 CONTINUE ; 

FIPES-T3 1975 Cc 

FIRPFS-T3 1976 G PUNCHING ELEMENT TEYMPERATURCS ER OPDFR 1-De 2-De 3-Co 
FIlFES-T3 19°77 C 

FIRE S-T2 197f 130 TF2=tF241 

FIPES-T3 1979 WRITE (NF »¢ 360) TIME »NUMFL ot tt NM, IF? 
TIFF S-T3 1980 IF CLL EFOS2Z COR CTL eFO0S) GO TH 190 
Fiers-T3 19P1 Cc 

FIPFS-TS 1987 c CALCULATES Tet AVEPAGE FLEMERT TEMPE PATURE 
rife S-T2 16°7 C 

FIFES-T3 19R4 i CREL Pet Q.0) GH TH 1S¢ 

FITES-T3 16985 ALM=0 

FURFS-T3 1974 NC 14C R=beAFLID 

FIPTS-T38 LORT ALM=AL M42? 

FIPES-T3 L9OFR ttUL=tLeONLM-1) 


C-33 


’ 


FIRES-T3 1989 LL2=LM (NLM) 


FIPES-T3 1990 140 AT(INI=C-S#(T(LL 1 VFT(LL2)) 

FIRES-T3 1991 150 fF (REL2Z0-EG.0) GC TO 170 

FIRES-T3 1992 NUM=29REL 1D 

FIRES-T3 1993 O00 160 NK=1,NEL2C 

FIRES-T3 1994 ALM=ALM4t4 

FIRES-T3 1995 Lt L=LM(NLM- 3) 

FIPES-T3 199€ LLA=LhMCALM-2) 

FIRES-T3 1997 LUL2=L¥( NLM-1) 

FIRES-T3 1598 LLO=LPC(ALM) 

FIRES-T3 1965S 1€O0 ATCARENELID) =Oo25*(TCLLI DFT(LL2 DFT(LL ID FT (LES) 
FIRES-T4 2000 170 IF (NEL 3IC.EO.0) GO TO 190 

FEIRES-T2 2001 KLM=2FRELIO*¢4*NREL 2D 

FIFES-T3 2002 ON 18C N=1,NEL 3D 

FIRES-1T3 2003 ALY=ALM4¢B 

FIRES-T3 2004 LLEI=LeCRLW-7) 

FIRES-T3 2005 LL 2=LM(NLM-6) 

FIRES-T2 2006 LLISLH(RLM-5) 

FIRES-T3 2007 LL&=LM(NLM—-4) 

FIRES-T3 2008 ULLS=L®(NLY-3) 

FIRES-T32 2909 LL6O=LW*(RLN-2) 

FIRES-T3 2010 LL 7=LM(NLM-1) 

FIRES-T3 2011 LLAZLPCNLM) 

FIRES-T3 2012 N12 =N4¢NEL 104#NEL 20 

FIRES-T3 2013 18O ATCALI=AcoL25¥*(TILLI IFT (LEL2) TILL DOTURL SD ETCLLSD*TO(LL EDF TELE 7) 4T CLL 
FIRES-T2 2014 2a) 

FIRES-T3 2015 Cc 

FIRES-T3 2016 1$0 CONTINUE 

FIRES-T3 2017 Nil=1 

FIRES-T3 2018 200 N2=N14¢6 

FIRES-T2 2019 TP2=TP2¢1 

FIRES-T3 2020 IF (RUMFL-N2) ZECe210,c1C 

FIPES-T3 2021 210 WRITE (NP,320) CT,AT( LE), L=N1—eN2) ELEM, IP? 

FIRES-T3 2022 IF (N2eEQeNUMEL? GO TO 230 

FIRES-T3 2023 NI=N241 

FIRES-T3 2024 GO TC 290 

FIRES-T3 2025 220 N2=NUMEL 

FIRES-T3 2026 N=NUMEL41-NI 

FIRES-T3 2027 M=72-N¥10 

FIRES-T3 2028 FNCORE €30¢330.L) NoeM 

FIRES=-T3 2C29 PRITE (NPoL)D CT eG ATC ED oe T=N1 9 N29, ECEMe IP2 

FIRFS-T3 2030 : 220 CONTERKUE 

FIRES-13 2031 Cc 

FIRES-T3 2022 RE TURN 

FIRES-T3 2033 c 

FIRES-T3 2024 Cc 

FIRES-T3 2035 240 FORMAT (7/,37H ¢« © 0 e PUNCHING NODAL DATA «© © «© eo? 
FIRES-T3 2036 250 FORMAT CIHN, AZ) 

FIRES-T3 2037 2€C FOPMAT (7A10.A2,A4 514) 

FIRES-T3 2038 270 FORMAT (52H NONAL POINT TEMPERATURES FOR SELECT TIME ENILRVALS e2N 
FURES-T2 203S 1X 944,14) 

FIRES-T3 2040 280 FURMAT (40H NADAL PUTINT COORCEINATES -— NUMMER eX eV eo Ze ZeX eo AG, 14) 
FIRES-T3 2041 290 FORMAT (3414, 3F603006%eA%, 149) 

FIRFES-T2 2042 200 FORMAT CHIH ofl oh THI 14 p3F6e3) 6 o 87 pRHIX eG AGM, 14) Dd 

FIRES-T3 2043 210 FORMAT (41H --=--NODAL POINT TEMPERATURES AT TIME = ef ToeSo dtl — oh 8 
FIFCS-T32 23944 1 96H AGNES 12% ,A4,74) ; 
FIRES-TZ 2045 r 2Z0 FURMAT CTCL GF Geld op 2XeAVOI A) 

FIRES-T3 2046 330 FERMAT (LHC TL eo LOHC 14 ef rel dee fA eo PHX, A414) ) 

FIRCS-12 2047 240 FORMAT (47,391 « © © « PUACHING LLEMERT DATA oo. 6 « oD 
TIPrS-T3 20aR 350 EARMAT CLHE 9A2) 

FIRE S-TA 2049 SEC FORMAT (C371 ----FL EMERY TEMPERATURES AT TE4t F of 7eBy AH — 0 £29 CH 
FIFCS=T8 29059 PELEMENTS e 22x —¢A4,5 4) 


C-34 


FIRES-T3 2051 END 


FIRES-T3 2052 SURRCLTTKE FIREMAT (MAT, FXYS, NSTCRE?) 
FIRES-T3 2053 a 

FIRES-T3 2054 C 

FIPES-T3 20§5 Cc SUBRCLUTINE *FIREMAT*® [NPUTS THE VARIABLFS REQUIRED IN Trt 
FIRES-T3 2056 Cc ASSESSMENT OF THE HEAT FLOW ASSOCIATED WITH BOTH LINEAR AND 
FIRES-T3 2057 c ROK-LEREAR FIRE FCURDARY CCACITICNS 
FIRFES-T3 2058 Cc 

FIRES-T3 2Cc59 Cc 

FIRES-T3 2060 COMWMCKR CONTROLS ITITLE (6), TREAD (80 Dy» KIN, NOUT » NPUNCK, NUMNP,NEL 109N 
FIPES-T3 2061 TEL 2D, NEL 3D» NUMEL » MAAND pNMAT NF BC 10, NF BC 20) -AFUC 30 ,NECMAT »NECTYF 
FIPES-T2 20€2 DIMENSLOR MATLID, FXYS(1) 

FIRES-T3 2063 (e 

FIRPES-T3 2064 Cc OUTFLT PAGE HEADING 

FIRES-T3 2065 Cc 

FIRES-T3 2066 WRITE (NOUT,40) 

FIRES-¥3 Z0€7 WRITE (NOUT,5O) 

FIRFS-T3 2068 WPTTE (NOLT»E0) TTETLE 

FIRES-T3 2069 Cc 

FIRES-T3 2070 IF (RACTYP.EQ.1OHLINEAR @C ) CO TO 20 
FIPCS-T3 7071 Cc 

FIRES-T3 2072 Cc ACA-LIKEAR FIRE @CUNDARY CONCITICN 
FIRES-T3 2073 Cc 

FIPFS-T3 2074 WRITE (NOUT, 70) 

FIRES-T3 2075 WRITE (NCUT »50) 

FIRES-T3 2076 WRITE (NOUT,60) 

FIRES-13 2077 READ (NIN,9O) SP,TSHIFT 

FIRES-T3 2078 WRITE (NOUT,100) SR,TSHIFT 

FIPES-T3 2079 WRITE (NOUT,110) 

FIPES-T3 20F0 C 

FTRES-T3 2081 : Fxyvs(1)=Soa 

FIRES-T3 20f2 FXYS(2)=TSHIFT 

FIRES-T3 2082 NSTORE =3 

FIRES-T3 7084 Cc 

FIRES-T3 2085 C INPUT OTFFERENT. MATFRIAL PRCFERTIES FOR FIRE BC 
FIRES-T3 20A6 Cc ; 

FIPES-T3 20e7 OC 10 S=1y»NGCMAT 

FIPCS-T3 2028 MAT(1) =NSTORE 

FIRES-T3 2089 READ (NIN,90) AcPe VeABGEF 0S 
FIRES-1T3 2090 WRETE (NCUT 6120) TeAyPye Vy ARVEFLVES 
FIRES-T3 2091 FXYSC(NSTORE D=A 

FIRES-T3 2092 EXYSCNSTCRE 4! )=P 

FIRES-T3 7093 FXVS( RE TORE +2) =V 

FLIPFS-T3 2094 FXYS(NSTORE #3) =A 

FIRES-T3 2065 FXYSOCASTCRE 44 ) =<EF 

FIRES-T3 2096 EXYSCNSTORE +5) =ES 

FIFES-T3 7097 NSTGRE=NSTURE 46 

FIRES-T3 7098 10 CONTIALE 

FIPFS-T3 2099 RETURN 

FIRES-T3 Z1CO Cc 

FIPES-T3 ?101 ZO CONTINUE 

FIVE S-T3 2102 c 

FIRFS-T3 2103 fe LINFAR FIPE BUURDARY CURDEITICK 
FIRES-T3 2104 G 

fF IPES-T32 210¢ wEETE (KCUT»139) 

FIRES-T3 2104 wPTTe (NOUT, 50) 

FITES-T3 2107 WRITE ONCUT,.1403 


C-35 


FIRPES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FTRE'S=13 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
ETRES='3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIRES-13 
FIRES-T? 
FIFES-T3 
FIFE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES=T2 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FTRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES=-T3 
ETRE S= 73 
FIRCS-T3 
FIRES=T3 


FIRES-T2 
FIQES-T3 
FIRE S-1T3 
FIPES-T2 
FINES-T3 
FIRES-T3 
FE IRES-13 
FIRES-13 
FIRFS-T3 
FIFES-T3 
rire s-T3 

-FIPFES-T3 
FIR S-T2 
FIRES-TI 


210e 
2109 
21190 
2i11 
2182 
A a he 
2114 
211s 
2116 
2117 
zits 
2119 
2120 
221 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2139 
2131 
2132 
2123 
2134 
2t35 
2126 
2137 
213° 
2129 
2140 
214. 
242 
2143 
2144 
2145 
Z14eé 
2147 
214e 
2149 
2150 


2ret 
2152 
2153 
2154 
cal Wet: 
2156 
2157 
21sA 
2159 
?160 
efi 
2162 
21é% 
21¢4 


AAA ANnAN 


NSTORE=1 

OC 30 1=1,NECMAT 
WRITE (NOUT.ISO) If « 
READ (NIN,160) K 

MS=(1-1)¥2 

MAT(CMS4 1) =NSTORE 

WAT (WS42) =K 


CALL MATIN (KeFXYS(NSTORE ) FEF XVSCRSTORE CK) -FXYS(NSTORE+K 4K DD 


NS TORE =NSTORE+ 3*K 
IF (kK eEO0) NSTORE=NSTORE41 
20 CONTENLE 


RETUFA 


40 FORMAT (1H6,S C7)? 

FO FORMAT (61H FRPERESLEREEERE ADH EREKRAL HEA MAHAR Y KREKEKEKEKKH ERE ADH 
LBekxeOT ) 

EO FORMAT (/SXSOHFIRFS-T3 - FIFE FESPCASE CF STRUCTURES - TEERMAL »/ 
171X,»6A10) 

7C FCRMAT (/5X,34HACA-LEINEAR FIRE FCUNCARY CCNOIT IUN,/) 

80 FORMAT (//71X,_,60HO2A¥4l TE-TS ) S24N4 SHRV*(ABSEFR (CTE 4+ TSHEIFT 944 -ES*(TSHT 
SHIFT )#*4 )) 

SC FORMAT (0E1020) 

100 FORMAT (7/1X,SHWHERE/6X,28HTF - PSUEDU FERE TEMPERATURE »/60X,24HTS 
1- SUFFACE TEMPERATURE »/6X,323HSA - STEFAN POLZTMANN CONSTANT = .Et2 
2ce8/E6Xe47THTSHIFT - SHIFT TO ASSOLLTE TEVWPERATURE SCALE = ,FARLI/1X 03 
SHARC) 

110 FORMAT (/7/58H MAT CONVECT CCAVECT VIEW AESCKET FIRE sU 
IRF ACE,»/S8H NUM FACTOR POWER FACTOR  EMEISSEV EMESS 
21 Ve /10X oe SHI AD OX gp SHIND OX oe SHIV) 9SK pFH(C ABI, SK, OHI EF Dg SXe SHI ES) D 

1zZ0 FORMAT (/14,6F9.23) 

130 FORMAT (/5X,30HLTINEAR FIRE EQUNDARY CONDITION ,/ ) 

14C FORMAT (/779Xe16HQ = HUTIFCTF-TSISSIOX»SHWHEFE p/ISX,ITEE(T) - HEAT 
ITRANSFER COEFFICENT,/15X%,28HTF —- PSUEDU FIRE TEMPERATURE »/15X%,24HT 
2S - SURFACE TEPFERATURE »/15X_,33HT - AVEPACE TEMPERATUTE (TF4IS IZ, 
3/7) ! 

150 FORMAT (7/7,2SH e © e MATERTAL AUMBER 4 14,6EH -2 © oD 

£€O0 FORMAT (15) 

ERO 


SLARCUTINE FIREPC (Xe V_ Zo KCDE pe MAKEASTEICKeoL Fob Soh Kolt oL MAT OLE IRE oA 
TTJKL »>LEL EM) 


SUCROUTINE *FIRERC* INPUTS THE GEOMETRIC DOF SCRIPTION CF Tht: 
SURFACE CF THE SYSTEM THAT WILL EF DIKFCTLY EXPOSED TON THE 
FIRE EXVIRONMENT 


COMMCR SCONTPOLZS TTTILE CED», FRE ADN(C30) NEM eNEIUT »pNPUNCH »>RUMNP »>NE LED» KR 
LELAND ,REL3ID, NUMEL pe MPANIZ ge NMAT ONERC ID, NERC2AR e NF esC Sth» NHCMAT »NHC TYP 
COMMON /SURFACEZ NSIANSZeNS3 ; 

DIMERSTCR XCD de VEEI, KOCECUD. CICHI, LICUM, CMATC UD, LET CID, ZC 
PED CKOUD, LECT 6 ALIKE, CAME ATED, THECK OL De CLLEMOD) 


C-36 


FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T2 
FIRES-T3 
FIRES-1T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIPES-T3 
FIPES-T3 
FIRES-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRPES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T23 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIFES-T3 
FIFFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIires-1Tt3 
FIPES-T3 
FUIRES-T3 
FIFE S-T2 
FIPLS-T3 
CURE S-13 
fF IP ES-T3 


2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
223¢ 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
227.44 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
22°¢5 
2256 
22ST 
22s8 
2259 
22€0 
2261 
2262 
2263 
2264 
2265 


2266. 


?267 
22€8 
2269 
227C 
2271 
2272 
2273 
2274 
22758 
2276 
2777 
2278 
2279 
22E0 
22F1 
22? 
22f2 
2284 
27eS5 
22H6 
22B7 
??PA 


aAanA 


ann aan AnA 


Nand 


AANnA 


70 


80 


so 


100 


120 


00 7C T=Et1,t2 

© (LMATC I) -GTeNGCMAT) GO TO &0 

2 1 ae @) 

JJ=LICI-NFACIO?) 

TF (KCOECT IY CEQGe4HTEME COR CKODE (CIS) -EQe-4HTEMP) GU TO 80 
CONTINUE 

GO tc 90 


10=I-NFBCIO 
WRITE (NOUT S280) TO,LICL IL ICTODeL MATCT),LE IPECT) LELEMCI) 
stop 


CALCULATE AREA OF FIRE FeCe SURFACE FLEMENT 


CONTIAUVE 

DO 1C€C f=I1,f2 

Tl=LI¢1) 

JJ=LICI-NFBCID?D 
DOX=XCITI-xX(C SI) 
OV=VCILTI-V(II) 
OZ=Z(T1I-ZC IS) 
D=0xX*®OX +DY FOV +0Z *02 
TK=LELEM(T) 

ALIKL (19=SORT(O) €THICK( IK) 


OQUTPLT SURFACE ELEMENT DATA 


WRITE (NOUT,300) 
WRITE CNOUT,330) CT oL IC E+NFACID) @L ICE) AL MATC T+ NFRCIO) LEI OF CT ¢NFEC 
L110) ,ATJKLCL¢NFBCIO), t=1,.NS2) 


REFOUCE AREA TO 172 FOR FUTURE CALCULATIONS 


OO Lic T=11,12 
ATJKL (CLT V=ALIJKL(1)726 


THRECH- OFTMENS TONAL Eat EEN TS 


TF (NS2-EQ.0) GO TN 19C 
WRITE (NOUT,220) NS3 
INPUT FIRPE BeCe DNATA — TwC ELEMENTS PER CARD 

I 1=NFSC 1IO+NFBC ane 

T2=NFECIR¢NFBC2C ANSI 

NI=NFECINO+NFBC2D 

READ (NIN, 230) (LICE eL ICT-NFBC AD) LKCI-NI) LUECI-NIDgLMATCE) LEI RE 
100) ,8=01 .f2) 


CHECK VALIOITY CF MATERLAL REQUIREMENTS AND PFE VEOUSLY Ot.Ct ARFO 
BUOUNCARY CONDITIONSe FCR A SURFACE TO RE CUONSICFREO A FIRE eC. 
It MUST CE BOUNCED BY NODFS THAT HAVE A DECLARED FLOW feCe 


DO 120 T=1,NS3 

TF (URATCLANE DeGCTeNECMAT) GU TM 140 

TE=LECrentid 

JIZLICT¢NFRC2ZD ) 

KK=LKECT) 

LLL=FLLOT) 

Lt CK CRE CULE Qe OPT EME ITH KODE (CIS) CEQSGHTE MP) Ger TC 140 
TH OKCOE CK) eFC OHTEMF oD oKOIN CLUL DoE CCAHTE MPD GU TU 140 


C-37 


FIRES-T3 
FIRES-T3 
FIRES-TJI 
FIRE S-T3 
FIRFS-T3 
FIFES-T3 
FIRES-T3 
fF TRES-T3 
F IRES-T3 
FIRES-T2 
FIRES-T3 
FEIPES-T3 
FIRES-T2 
FIRES-T3 
Sire s— to 
FIRES-T3 
FIRES-T3 
FYIRES-T3 
FIRES-T3 
FIRE S-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRE S-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FTRES-T3 
FIFES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-73 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FI@FS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T4 
FIRES-T3 
FIPFS-T3 
FIRES-—T2 
FIPES<-T3 
& TRE S-T3 
FIPES-T3 
FIPES-T3 
FIRE.-T3 
FIPES-T3 
>FIRES-T? 
FIRE SG<TI 


as 


2289 
2290 
2291 
2292 
2293 
2294 
22S5 
2296 
2297 
2268 
2299 
2300 
27301 
2302 
e3c2 
2304 
23CS 
23C6 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2324 
2324 
2325 
2326 
2327 
2278 
2329 
2330 
2331 
23322 
eos 
2334 
2335 
2326 
2337 
2338 
2339 
2340 
22741 
2342 
2343 
2344 
2345 
23546 
2347 
7348 
7349 
72350 


Ann 


AAn Aan 


an 


120 CONT TINUE 
GO TC 150 


140 CONT INUE 
WRITE CRCUT »260) 
TIVE CTEeNI) 


STOF 


CALCULATE THE 


150 CONTINUE 


1@€0 


190 


200 
1 


oo 170 


f=1,NS3 


TT SLr (rent) 
JJZLI(NFACSD41) 
KK=LK(1) 
DX=xXC TTI KC SID 
DV=V(ELT-vV(II) 
O7=Z20119-Z2¢0 99) 
DO=OxX#C RFD V*EDY 4NZ FOZ 
XLI=SCRT(D) 
DK=xXCIII— XC KK) 
OV=V¥ (IJ I—-V (KK) 
OZ=ZCISII—AZOKK) 
O=DOX*Cx*#+CY*DYV 402 *O7 
XL2=£CRT(C) 
ATIKL(T#N1) =XL1I% xL2 

TF (UK CE P-LOCC LI) 170, 860,170 
160 AT IKLC TEN) HOoS*FALIKL I T+Nt D- 
170 CONTINUE f 


ARFA OF 


ToLECTEnt) CICTINFBC2OI oALKCT Pol LCL) pL MATC TONE) tr 


QUTOPLT SURFACE CLEMENT DATA 


WRITE CNOUT -310) 
WRITE (NOUT, 340) CToLEC TEeNi) AL ICEENF BC 2D) pL KC) LUC T) eC MATC LONE Dot 
IF TRECL ONG Dg ALIKE CT ANE DD, T=E1,NS3) 


FFODUCE THE SURF ACF 


OO 11°C f=T1lel2 
ALIKL (1D Se25*AT IRL TD 


RETUFRA 


FORMAT 
C FIFE 


(477716H 


ee ed) 


210 FORMAT (//4//16H 
10 TO FIRE « eo) 


220 


FCRWAT 


(47/7/16 


10 TO FIRE « oe? 
220 FORWAT (1215) 
24C FCRMAT (1615) 
2£0 FORMAT (1515) 
260 FURMAY (517),54¢ 
—- ~-o1Ik.7IS) 


1 
770 
1 


29C THRMAT C779K, ATH! SCHEPTIGN SF 
1459H FEF EC 


FORMAT 


(S079, 54h 


- ~01X%e,519) 
280 FURMAY (€£(7),544 
- ~9IX,O15) 


NO 


& 


AREA 68V 174 TO AID 


THERE AFE + 14,40H It-D 
TRERE APL 14,41h 2-0 


TREFE ARE, 14,41 3-D 


= PROGRAM TERMINATED — 
- ERMGRAM TEPMINATON —- 


- 2s = 


PEEGCAM TEEME RATER = 


IAAT FIR AVE ASAP 


C-38 


t IRE 


PURE 


f TRE 


THE FIRF BC SURFACE ELEMERTS 


AC TNPUT 


HCO TNeUT 


eC TRPUT 


SUSFACtE DEIFECILY LCXFOSEC TC 


SUV ACE: 


IN FUTURE COMPUTATION 


ERROR 


FREGS, 


FRECOR 


SURFACE AOCES EXPCSECE T 
SURFACE ELEMENTS FXPOSE 


SURFACE ELEMENTS € XPOSE 


FIR e 47 
TYFt 


FIRPES-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T2 
FLRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T2 


FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S=—73 
FIRES-T3 
FIRES-T3 
fF TRES=—T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIPES-T3 
FIPES-T2 
FIRES-T3 
FIRE S13 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FtCPES=TS 
FIPES-T2 
AIrPeES—Ti3 
FIRES-T3 
FIPES-T3 
FIFES-T3 
FIRES=-TVi2 
FIPES-T3 
FIPES-T3 
FIRES<T3 
ALFES=TS 
EtRES= 
FIPES-T3 
FIPFES-T3 
-FIRES-T3 
FIRES-1T3 
GiPe. S= t3 
PRETEES=T 4 
FIKes=T3 
FTIRES-T3 


2351 
2352 
2353 
2354 
2355 
23356 
2357 
2358 
2359 
2360 
2361 
23€2 
2363 
z2€4 


2365 
2366 
23€7 
2368 
23€9 
2370 
2371 
2272 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 


23f2 . 


2383 
Z3F4 
23835 
2386 
2387 
2388 
23€S 
23990 
2391 

2392 
2393 
2354 
2395 
2496 
2397 
2398 
2359 
2400 
2401 

2an? 
2403 
2494 
2405 
2406 
2407 


nanan WOOL Quan Aa 


(a) 


AA 


aA 


2 TYPE/) 4 
3CO FORMAT (7/9X%,47HDESCRIPTIGN CF SURFACE 


DIRECTLY EXFCSED TC F- 


{fF e// 


145H FIREEC  NOCE NOOE MAT FIRE AREA/25H SURFACE t 
2 J TYPE  TYPE/) 

3tO FORMAT (//79X,47HDESCRIPTION OF SLRFACE DIRECTLY EXFOSEC TO FIRE s// 
159H FIRE®C ACCE NODE NOCE NODE MAT FIRE AREA/4SH 
2 SURFACE 1 J K t TYPE TYPE/) 

320 FCRWAT (417,F10.3) 

320 FORMAT (517.F10.3) 

340 FORMAT (7179F1G.3) 

3£0 FORMAT (BORD) ' 

2EC FORMAT (6(/7),4SH ~ - - FROGRAW TERMINATEO - IKPUT ERFOR - - -y//1X 
1.80R1) 
END 


10 


20 


SUBROUTINE FIRE (LT pL Jol K pil pLMAT LF IRE oA JKL »MAT oF XVSe Te TFIREC FD 


SUBROUTINE *FIRE* CALCULATES THE HEAT FLOW ASSOCIATED WITH A 
REPRESENTED THRCUGH TEMFERATURES TFIREC( TIT). THESE HEAT FLUWS 
ARE DETERMINED UPON THE BASIS OF THE ASSUMED TEWFERATURE VEC 


COMMON /CONTROLZ 


COMMON /SURFACE/ NSI,NS2»NS3 
OUMERSTON LICL), LIC1 9, LMATCH), LEIREC LD, ALIKLO 1), MATC ID, 
LL), TOLD, TELRE(C LY, TES(S Dy ECRVe CKCRDe Lt CI?) 


IF BCURDARY CCAOITECN 15 NONLINEAR TAKE FIRE TEMPERATURES TO 
THEIR FOURTH POWERS 


IF (NBCTYPSEQsLOHLINEAR RC ) GO TC 20 
SB=FXYS(1) 

TSHIF T=FXYS(2) 

DO 10 T=1,4 

TE=TFIRECL) 41 SHIFT 

TE =TF*x TF 
TFE4(f=TESTE 
ONE-DIMENSYTONAL ELF MENTS 
IF (NE1L6EO. 0? 
DO 3C N=1,NS1 


GO TG 40 


ESTARLISH CPASIC FIRE BeCe VARTSFPLES FOR THIS SUPF ACE FULEMERT 
AZ=A 

I=LT(N) 

M=LARAT(N)D 

LH =LA TPR ON) 

TF=TE IRE (CLE D 

TS=T(1) 


FING FEAT FtOw Cur TC FIFE Pele 


Q=GFIFE CTE, TS ep L FeNBCT VU aMeh 2, TSHIE DT, S49 Tl TeMAT SF XYS eATJIKLD 


C-39 


FTRE 


TCR TT. 


ITITLE( 6), TREADC AOD »NINeNOUT »NPUNCH » NUMPNE ARELID oN 
LTEL20, KAELID >» AUMEL ¢ ME AND, N¥AT FNFACID, NF BC2C eNFAHC 30, NBCMAT »NBC TYP 


FuVS( 


‘ 


FIRES-T3 
FIPES-1T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-1T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIRES-T3 
FIRE S-13 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRE S-13 
F IRES-T3 
FIRES-T3 
FIRES-TI 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIPCS-T3 
FIRES-T3 
FIRES-T3 
F IRES-T3 
FIPES-T3 
FIRE S-T3 
FIRES-T3 
FIRES-13 
FIRPES-T3 
FIRFS-T3 
FIBES-T3 
FIFES-T 
FIRFES-13 
FIRES-T2 


2408 
2409 
2410 
24tt 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2422 
2424 
2425 
2426 
2427 
242h 
2429 
2430 
2431 
2422 
2423 
2434 
24235 
2436 
2437 
243A 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
z4asc 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
24€C 
2461 
246? 
2962 
2464 
24€ES 
2466 
2467 
PABA 


aaa 


aan 


naan AAA aaa 


aan 


40 


€0 


70 


KO 


ADD HEAT FLOW TO NONES BOUNDING SURFACE ELEMENT 


BHC) =E(1)4+0 
CONT INUF 
TeG-ODIMENSTEONAL etcetewents 


JF (NS2eECe0) GO TO 60 
00 SO N=1,NS2 


ESTABLISH BASIC FIRE BeCe VARTAPLES FOR TKIS SURFACE ECEMERT 


N3zA4¢ RE RBCIO 

I=L T(N3) 

JsL ICN) 

M=LMAT(N3) 
LF=LFIRE(NS) 

TF =JFIRECLE 
TSzO-S*(TCLIFT( Id) 


FINO HEAT FLOW DLE TO FIRE 6eCe 
QG=QFIRE CTF, TS»LF pRACTYVP oMyN3 5 TSHIFT eSB, TES, MAT EXYS, ALJKL D 
ACO tEAT FLOW TC NOCES BOUNDING SURFACE ELEMENT 


BC LV=ECT +a 

BI JIFEC IMEC 

CONT INUE 

THREE=- OfTMENSTONALRL cc .€) ¥ Een Ts 


ITF (NhS22ECe.0) GC TG BO 
On 70 N2=1,NS3 


ESTABLISH BASIC FLRE BeCe VARTARLES FOR THIS SUFFACE ELEWERT 


KRI=N¢ AF BCIOFCAFBC20 

T=LTCNG) 

J=L JON*NEBC2D) 

NK=LK(N) 

NL=LULCN) 

W=LPMAT( NS) 

CFSLF IPE(N3) 

TFZTFIFECLE) 
TS=eSEK( TC LIF TC UPF TINK) &TCAL) D 


FIND FEAT FLCW CUE TO FIFE EeCe 

O=CF IRE (TE » TSeL Fe NBCT VP oMeoN3_ TSHIFT , SH, TEA MAT, FXYS,ATIKL D 
ACO tE€AT FLOW TO NODES BOUNDING SURFACE ELF MENT 

RC TI=RCT)+Q 

PC JI=ECIIEC 

BUNK) =ACNKI4¢Q 

RUNL )=OCNLI4O0 

CCATIACE 


RETUER 
END 
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FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIURES-T3 
FIPES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIFES-T3 
FIRES-1T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRFS-T3 
FIPFS-T3 
FIRES-T2 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIPES-T3 
FIPES-T3 
FIPES-T3 
FIRES-13 
FICES-T3 
FIRES-T3 
FIPES-T3 
FIPFS-T3 
FIRES-1T3 
FIRES-T3 
fF IPES-T3 
fF IRES-T3 
FIRNES-T3 
FIPES-T3 
FIRES-T3 
FIMES-T3 
FIRES-T3 
FIRES-T3 
FIPFS-T3 
FIRES-T3 
FIPES-T3 
FIPES-13 
FIPES-T3 
FIRES-13 
FIVES-T3 
FIRES-T3 
FIRE S-13 
FURCS-T3 
FIRES-T3 
FIRFES-T3 
FIRES-T3 
FIRES-TS 
FIRES-T3 
FURES-T? 
FIrES-13 
FIRES-TY 


2469 
2470 
Z471 
2472 
2473 
2474 
2475 
2476 
2477 
247A 
2479 
2480 
24Al 
2482 
2483 
2484 
2485 
24AG 
24H7 
2487 
2489 
2490 
2491 
2492 
2453 
2494 
2495 
2496 
2497 
2496 
2499 
2500 
2501 
2502 
2503 
2504 
2505 


2s06é. 


2507 
2504 
2509 
2519 
2S11 
2512 
2s13 
2514 
2515 
2506 
2517 
€518 
2519 
2520 
<Sé2t 
2522 
29523 
2524 
2925 
aeece 


2527 


AA nDAAOAnaA 


Aaa 


ana 


Aa”n 


an 


10 


20 
30 


40 


FUNCTION QFIRE CTF ee TS oF oNIUCT YD pM ON oe TSHIFT pp Stie TF Ge MAT ot XVGeATIML ) 


FUNCTION *QFIRE*® FINOS HEAT FLOW MUE TO FIRF GON SURFACE ELFMERT 


OIMERSTON TF4AC(L De MATC IED, FXVS( 2), ATIKLO I) 


OTsTF-TS 
IF (NACTYPeEG@e ICHNON-LIN BC) GO 10 10 


LINEAR FIRE HOUNDARY CONOITICK 


w=(N-1)*2 

JJ=MAT(M42L) 

K=MAT(¥42) 

TA=O0E*( TFE+TS) 

H=VMAT(K gp FXYSC IS DCF XVS( JI*K DF XVSEUCIIFK EK) » TA, LOH 
Q=AI JKL CAI) *#H*EOT 

GO Yo £0 


CONTINCLE 
NCA-LIAKEAR FIRE ECUNDARY CCNOITICN 


K=WAT(W) 

A=F xvVE(K) 

ac=0.0 

IF (@.ECe0) GC TC 30 


CALCULATE CONVECTION TERM - QC 


P=FXKVS(K 41) 

fF (6 eENe1 2-0)? GC TC 20 
SIGN=1.0 

TF (CT eLT2O) SIGN=-1.0 
DOT=SIGN*OT 
QC=SIENFAKD THRO 

GC TC 390 

QC=A%0T 

V=FXYS(K42) 

OR=C.C€ 

TF (V.EN-C) GOD 1M 40 


CALCULATE PADITATION TERM - QR 


TS=TS4¢TSHIF T 

TS=T¢*TS 

TS=TS*TS 

AG=FXYSCK#¢3) 

EF =FXVS(K+44) 

ES=FxXYS(K#S) 
QR=SE*VECARCEFYTE 4(LF J-ES*TS) 
Q=AESKLOAIIFCCC+OR) 

QF IPF =9 

RF TUFN 


{ NID 


C-41 


H(T) ) 


FIrFES-T3. 2528 SURRCUTINE EXOELS (Xe Ve ZelL™eHARFA,THICK, VOLUME, IEL,IMAT,VEL)D 


EIRES={13) 2525 c 

FIFFES-T3 2530 Cc 

FIRES-T3Z 2531 S SUBRCUTINE *EXCELS* INPUTS CATA CESCRISING ALL ELEMENTS wHICH HAVE 
FIPES-—¥ 3 2532 Cc INTERNAL HEAT GENERATION 

FIFES-T3 2533 Cc 

EIRES-T3, 2534 ce 

RIRES=1.35 2535 COMMCN /CONTPOL/ ITITLE (6), FREADISEO) »NIN SNOUT »NPUNCH pNUMNP,RELIO oN 
FIRES-T3 2536 1LEL2D » hEL3 0» AUMEL » MRANDe? AMAT » NFOC 10, NFOC2CeNFHC 3D ¢>NACMAT oNHC TYP 
FIRPES-T3 2537 COMMON ZEXOTHZ NINTIOPNINT2D eNINT3SD »NINT »NCINT 

FIRES— Vay 2538 DIMERSTON X(U)e VEL, ZORIe CMC LDI, BHAREAC LD, THEICK( 1), VOLULMECI)D,. 
FIRES-T3 2539 ITEL C2)» IMATCED» VELCE)D 

FIRES-T3 2540 Cc 

FIRES-T3 2541 Cc GANTE, =) OF PSY ME PR SIC Rh AC eC £4 € NTs 

FIPES-T3 2542 Cc 


FISES-T3 2543 TF (AIKTICLEQ-0) GO TO 20 
FIPES-T3 2544 
FIRES-T3 2545 
FIPES-T2 2546 : 
FIRFES-T3 2547 READ (CNIN|70O) CIELCID oS MATCH) »pT=2 oNINTLIOD 


INPUT 1-0 ELEMENTS SITH INTERAAL HEAT GERFRATICN- - 8 ELEMERTS/CARD 


Ana 


FIPES-T3 2548 C 
FIPES-T3 7549 Cc FIRO VCLUME OF ELEMENTS AND CUTEUT DATA 
FIPES-T3 2550 Cc 

FIRES-T2 2551 OO 10 A=1,NINTIC 4 

FIRES-T3 2©S2 IE=SELOND 

FIRES-T3 2553 TL=U¥(2*1E-1) 

FIRES-T3 2554 JJ=LWC2*TE) 

FIRES-T3 2555 DX=EX(ITI—xX( JI) 

FIRES-T3 2556 OV=YCIT)-Y( 0) 

FIRES-T3 2557 DZ=Z(1T19=-ZC J) 

FIPES-T3 2558 DL=SCRT (CX*OX ¢0Y*DY4DZ*0Z 

FIRES-T3 2556S 10 VEL (AN) =OL*#BAREACTE)D 

FIFES-T3 2560 WRITE (NOUT,.8S0) NINTID 

FIRES-T3 2561 WRITE (CNOUT»90) (CT, TEL CID, IMATCT JoVEL( IT), f= 1eNINTIDD 
FIRES-T3 2562 Cc 

FIRES-T3 2563 c TwC]=-CTMENSTONAL ELEMENTS 
FIFES-T3 2564 C 

FIFES-T3 2565 20 IF (NINT2D-E€9.0) GO TO 4C 

FIRES-T3 25€6 c - 
FIRES-T3 2567 Cc INPUT 2-D ELEMEARTS ®ITH INTERRAL HEAT GONERATION - 8 ELEMERTS/CARD 
FIRPES-13 ?568 c 

FIFES-T2 ZzSéS TT=ATATIDEl 

FIRFES-T3 2570 ; 12=NINT LO4NINT20 

FIPCS-T3 2571 READ (NIN,7O) CHEC(C TD), EMATC LE), f=11, 12) 
FIRES-T3 2572 C 

FIPFS-T3 2573 C FIND VGLUME OF FLEMENTS ANO OLTPLT NATA 
FIRES-TI 2£74 y ic 

FIRES-T3 2575 DO 20 N=it,t2 

FtPES-T3 2576 Th =TEL ON) 

FIRES-T3 2577 TARG=Z*NEL ID F4*1TE -3 

FIPFS-T3 2578 IT=LMCTARG) 

FIPES-T2 2575 JJ=LH(TARGEI) 

FIPCS-T3 2580 KK=LM( TARG¢ 2) 

FIRES-T3 2581 LL=LM(IARG43) 

FIRES-T3 2582 AJ=EXCSJI-XCTET) 

FLPCS-T3 2533 AK=X(KKI—XCTT) 

FIVPES-T3 2594 PIZVCISVAVOIT) 

FIPES-T3 2585 OK=YOKKI-YCID) 

FISES-13 2526 AIF A= CA IJ*PK-AKTBPI DS 7 © 

-FIGES-T3 2577 AJ=XOKKI-XCTE) 

FIRES-T3 2588 AK=X(LLI-XC TT) 

FIRES-T3 ZEE€S FJ=VCRKD-VOCETD 


C-42 


FIRES-T3 
FLPCS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIRES-13 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FIRES-T3 
FIRFS-1T3 
FIRES-T3 
FIMES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T2 
fF IPES-T3 
FIRES-T2 
FIRES-T3 
FIRES-T3 
F IRES-1T3 
FIRES-T3 
FIRES-T3 
FIPRES-T3 
FIRFS-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 


FIRES-T3 
FIRES-T3 
FIRES-TJ 
FIPFS-T3 
FIRES-T2 
FIRES-T3 
FIRES-13 
FIRES-T3 
CFIRFS-T3 
F TRE S-T2 
FIRES-TY 
FIPplSs-13 
FIPES-T2 
"RE IRPFS-T3 
FIRES-T2 
rires-T3 


2€90 
2591 
2e32 
2593 
2594 
2595 
2596 
2697 
2593 
2599 
2690 
2601 
2€02 
2603 
26C% 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
<€17 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2€3C 


2631 
2632 
€633 
2634 
2635 
2036 
2637 
26378 
2639 
264C 
2641 
2642 
2643 
2644 
2045 
2646 


aan 


an 


nana 


AANANA 


aA” 


30 


40 


€c 


70 
EO 


so 


BRK=VCLLI-VCII) 

ARE A=AREAF+( AJ FAK—-AKTB IIS 26 

VEL (CR) =AFEA*THICKCI TE) 

WRITE (NOUT,2100) NINT2D : 

WRITE (NCUT,9O) Ci, TEL CIA#NINTIN), IMATCI4NINTID) »pVELCLtENINTIO) plate 
INTNTZDO) 


THREE-OLWMENS IT GNRAL ES ty Ee MeESN Tas 
1F (NRIAKAT3SCeEGeO? GO TO 60 
INPUT 3-D ELEMENTS WITH INTERAAL HEAT GENFRATION —- 86 ELE RENTS/CARKD 


IL=NINTIO*¢NINT2D41 
T2=AIKT 
READ (NIN 70) CTELCT) ps TMATCTD oT =Ib eo l2) 


FIKD VCLUYME OF ELEMENTS AND OUTPUT DATA 


0c SO A=I11,12 

TESTELCN) 

VEL (A D=VOLUMEC TIE) 

NI=ATATIOFNIAT2C 

WRITE (NOULT,110) NINTIO 

WRITE (NOUT,90) CI, LELCIAnt de IMATCE¢NI ) SL=ReNINT20) 


RE TUFA 


FCRWAT (R(275))? 

FORMAT (///9X,1EHe 2 © THERE APE »14,2HH 1-C EXCTFERMIC ELEMENTS © 
1 e//2(20H N EL FUN VOL UME )) 

FORMAT (2°CT10,21S,F1004)) 


100 FORPMAT (///9X%,1E€He « « THERE ARE 914,28H 2-0 EXCTHEFMIC ELEMFATS « 


1 e472(30H w EL FUN - VOLUME)? 

110 FORMAT (//4/9X%,1€He « 2 THERE ARE 414,28H 3-C EXCTFERMIC ELEMERTS «© 
1 0772(30H N EL FUN VOLUME )) 
END 


SUARCUTINE EXOFUN (CIF 20 °EXYSsNSTCRE ) 


SUNPOUTINE *FEXOF UNS FNPUTS THE FXOTHERMIC HEAT GENF RATION CURVE 
AS A LINC ARIZFO FURCTICN CF TIME 


COMMON ZCONTROLZ TTIETLE (6) eT RE AD (AO) peRINe ROUT ¢eRFURCHe NUMNE,NEL IDYN 
LELZD.NFEL 3D,.NUMEL » MRAND,NMAT .NEHC ID »NF AC 21) pNF UC Ste NBC MAT CNC TVR 
COMMCR ZEXOTHZ AEIATIDeNIATO DS REINTINGNINT oNCINT 

DIMERSTON IE XOC1). FRYSC1) 

STCFE=1 


OUTPUT FP AGT HEADING 


WRITE CNOUT,4&C) 


C-43 


FIPES-T3 
FIRES-T3 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FIRE S-T3 
FIRPES-T3 
FIPES-T3 
FIRCS-T3 
FIRPES-T3 
FIRtE.S-T3 
FIPES-T3 
FLePES=T3 
FIRES-T3 
FIPFES-TS 
FIFES-T2 
FIRES-T3 
FIRES-T3 
FIPES-T2 
FIFES-T3 
FAPES=T2 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIPES-T3 
BIPeS=7 2 
FIRES-T3 
FIPES-T3 
FIRES-T3 
FIPES-T3 
FLRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-1T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIFES-T3 
FIRES-T3 
FIPES-1T3 
FIPES=—T3 
FIRES-T3 
FIPES-T3 
FIPES-T3 
FERES-T3 
FIRES-T2 
FIRPES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T3 
FIRES-T2 
FIFES-T3 
FIPES-T3 
FIFFS-T3 
FIRFS-13 
~FIRES-T2 


2647 
2648 
?649 
2€50 
2681 
2652 
Z€53 
2654 
2€55 
2656 
2057 
z6ce 
2659 
2660 
2€6€1 
2662 
2€«3 
2664 
26€5 
26€6 
2667 
z<6éeée 
2669 
2670 
2671 
2672 
2672 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685S 
2686 
2687 
2é€€8 
z6e9 
2650 
<6S1 
2692 
26S 
2694 
2695 
ZESE 
2097 
2659 
2699 
2700 
27C1 
2702 
27C2 
2704 
27CS 
<~7Cé 


ie) 


ANANRAAnDANAA 


Aan 


aan 


naAN 


WRITE (NQUT,5SO) 
WRITE (ACUT,60) ITEITLE 
WRITE (NOUT,»7C) NOINT 
WRITE (NOQUT,»50) 


DO 30 N=1,NQINT 
READ CONTROL CARO 


NSTORE = FEXC(td — STARTING FCIAT FOR FURCTIUN N IN EXYS 
MK = IEXO(2) - NUMBER OF PCINTS IN INPUT HEATING CURVE 
WT = FEXC(3) - TYPE CF INFUT tEATING DATA 

EQe O —- HEAT RATE PER UAITT VCLUME 

EQe 1 - HEAT RATE PER UNIT MASS 


WRITE (NCUT,110) N 
READ (AIN,L2O0) WK eWT 
MS=(N-1)*%3 
TEXC(WS4¢1D=NSTORE 

TE xOCMS42) =MK 
TEXO(MS4+3)=MT 


INPUT HEATING FURCTION 


NI=ASTCRE-1 
REAC (NINS130) CFXYSUNI4T) pEXYS(NIGMKELD 2 =1 MK) 
W=MK—1 


DETERPINE SLOPES AND PRINT HEATING FUNC TION 


00 1C T=1_M 
AL=NCTCREF+I-1 
10 EXVSON1#MK4+MKD=(EXYSOND MKS 1) -EXVSONLOMK) IDSC EXVYSCRI G1 D—EXVSCRIDD 
WRITE (NCUT,80) 
OC 2C T=1)M 
NI=NSTORE*I-2 
WRITE C(NOUT»90) TeEXVYSENE Ds EXYS(NI+MK D 
20 WRITE (NOUT,/100) EXYS(NItHK4FMK) 
‘WRETE (CKGUT,90) MK, EXYS(NSTORE OMK—-1) eEXYSONSTORE+MKOMK—1) 
NSTCRE =NSTORE ¢ 32 MK 
20 CONT ENUE 
RETURA 


40 FCRMAT (1HE.S(7)) 

EC FORMAT CEH KXAEELERAHESEKHAERRELESEKERKREAKEAE HY, EVKLC SERRA LLY ASSAD HST HH 
Leeesed) 

60 FORMAT (/S5XSOHFIFES-1T3 - FIFE FESPORASE CF STRUCTURES - TEERMAL./ 
t71X,E€410) : 

70 FCRMAY (/5X,36HIATERNAL FEAT CENERATION INFORMATION »//5X%, SHIMEFE A 
TRE »14,2S5SH NIFFEFENT HEAT FUANCTIONSS) 

AO FURMAT (/5Xe19HNODE TIME 9 GX—oSH HEAT» 7X »SHSLCPF LY) 

SC FCRMAT (CTS .FI Bel p6XeGIt 3) 

100 FURMAT (29xX»G11.2) 

110 FORMAT US77792Ht “o @ © «© FURCTICN NUMIIFR 9 34,Sh 6 «© © 0A) 

120 FUPMAT (218) 

120 FURMAT (RE1060) 
END 


C-44 


FIRES-T3 2707 SURRCUTINE OF XO (LM, TEL oe IMATSTE XC cE XVS AT oMATL pVEL oMMTVFE eo Ro XVSe TI 
FIRES-T3 27C8 1ME)d 


FIRES-T3 2709 Cc 

FIPES-T3 2710 Cc 

FIRES-T2 e711 Cc SLBRCUTIKE *CEXC* COMFUTES ROCAL HEAT FLOW DUE TO EXOTHERMIC 
FIRES-T3 2712 cC REACTION wITHIN ELEMENTS 

FIRES-T3 2713 (2 

FIRES-T3 2714 c 

FIRES-T3 2715 COMMCN CONTROL ITITLE( 6), EREAD( 80) «NIN,NOUT »NPUNCH,NUMNE ,RELID eA 
FIRES-T3 2716 LEL2D ,AEL3D, NUMEL > ME AND, NMAT 2NFOCIDe NFBUCACeNFHC3ID »NBCMAT ,NBC TYP 
FIRES-T3 2717 COMMON EXO TH NINTIO pNINT2ZOeNINT30 pNI NT SNCINT 

FIRES-T3 2718 DIMERSTION CMCL DD,» TEL CRI, FMATC RD, LEXOCLI, EXYSC1), AVC 1), MATLO1) 
FIRES-T2 2719 Ll, VELCL) » MMTVPECLD, BCI1I> XVSC13 

FYRES-T3 2720 (6 

FIRES-T3 2721 Cc GUN & — OFT * ENS. fh CUNT A LE Ents & ME NTS 

FIPES-T3 2722 Cc 

FIRES-T3 2723 IF (AIKTIOLZEQ-0) GO TO 30 

FIRES-T3 2724 OC 2C N=1eNINTIO 

FIRES-T3 2725 TE=ITEL CN) = 

FIRES-T2 272€ TI=tLn(2e1E€-1) 

FIRES-T3 2727 JJ=LM(C 2FTE) 

FIPES-T3 2728 MS=IPR ATCA) 

FIRES-T3 2729 MS=3%(MS-1) 

FIRPES-T3 2730 J=TExO(MS41 D 

FIRES-T2 2731 K=LExO(wse+2) 

FIPES-T3 2722 CTYPE =I1F xO(MS+4 3) 

FIRPES-T3 2733 C=VKMAT (KV EXYS(JIICEXVS(CI4K DLEXVS( JAK 4K) TIME e LOHHEAT FUNCT) 
FIRES-T3 2734 I1© (ULTYPE-EQGe0) GO TO 10 

FIRES-T3 2735 TEMP=AT(IE) 

FIRE S-T3 273€ VS=MPTYFECIED 

FIPES-T3 2737 MS=(MS—1)*6 

FLRES-T3 2738 J=MATL (¥S45) 

FIRES-T3 2739 K=MATL (S46) 

FIRPES-T3 2740 DENS=VMAT(K p XVSC ID oe XVSUItK) po XVS( JEKEK) »eTEME SIL OH CEKS) 
FIRE S-T2 2741 Q0=Q*DEAS 

FIRES-T3 2742 10 OCADDO=C¥RVEL(N)I 72. 

FIPES<-T3 2743 BC TII=ECTID+QACC 

FIRES-T3 2744 20 BC JJ) =B( JI) +CA0D 

FIRES-T3 2745 (a : 

FIRE S-T3 2746 (6 VT, WeG>=C 317 # EN S27 I GUN ALG Estee MOEN tS 

FTRFES-T3 2747 C 

FIRES-T3 2748 30 IF (NRIKRT2EC¢EQ-0) GO TN 60 

FIRES-T2 2749 TI=ATATIOF! 

FIRFES-T3 2750 T2=NINTID*NINT2C 

FIRE S-T3 2751 OC SO N=I11,12 

FIRES-T3 2752 TE=TELON) 

FIRFS-T3 2753 RL=29RELIOFSORS IE 

FIRtS-T2 z7€4 tr =LM(at-3) 

fF IRES-T3 2755 JJ=LM(N1I-2) 

FIRFS-T3 2756 KK=LMYCNIL-1) 

FIRCS-T3 2757 LL =LM(NE) 

FIRPES-T3 27583 MS=FERATOR) 7 
FIPES-TI3 27°59 MS =3* (WS-1) 

FIPES-T3 2760 J=TFERXOCMS45) 

FURPCS-t3 2761 K=FExXOCMS42) 

FIPES-T3 2762 L TYPE =TE XOCMS+ 3) 

FIPFS-TI 2763 Q=VMATOCKEXVYSOC SDC FXYS CI OK DG EXVYSCIEK OK DO TAME gf OFM AT FUNCT) 
C{PFS-T2 2764 te CLIVPE*EG.IO) GE TU 409 

FIFFS-T3 276% TEMP=-ATONEL I1D4TF) 

FIP S-T.3 ATES VS=WNTVPECREL ING TED 

FIRES-T3 77E7 mco=Q(mMc-])*6 

FIeRS-TR 2P75H J=MATL (M545) 


C-45 


FIRES-T2 2769 K=MATL (MS46 ) 


FIRES-T3 2770 DENS=VMATCK op XVSC J) p XV¥S( SEK) pXVSUJS+HK4K) »p TEME p21 OF OENS) 
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